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SSSSSSSS HH HH MM MM GGGGGG SSSSSSSS DDDDDDDD RR RR TT NN NN eeee 
SSSSSSSS HH HH MM MM GGGGGG SSSSSSSS DDDDDDDD RR RR TT NN NN cece 
LL IHII1I SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL II Ss 
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TITLE SDRIN = GLOBAL SECTION DESCRIPTOR ROUTINES FOR SHAR Y 
IDENT #1042000" OUTINES FOR SHARED MEMOR 


RAAT AAAATERAEAARAAAAAEARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAEAEARAEREEAAEEEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

DIGITAL a EQUIPHENT eGORPORATION, MAYNARD. MASSACHUSETTS. 

ON 

One LU ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

COPIE THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
+ 
* 
* 
’ 
+ 
a 
* 
» 
® 

TRANSFERRED. * 
* 
a 
a 
* 
* 
* 
* 
* 
* 
* 


FTWARE IS pyran eee UNDER A LICENSE AND MAY BE USED AND gt 


IGHT 
$O 
4 e mie WITH THE TERMS OF SUCH pint AND WITH THE 
$s 
Pp 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aeRPORAT I On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS "7 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


De Se Ge Se Be Be Se Se Be Se Ge Se Se Se Se Se Se Se Se Se See 
@aeneneneneeeenneenneennaennnnnne 


SHREK AAARAAAAAAAAAAAAATAAAARAAAAAAAAERAAAAAAAARAAAARAAAAAAAAAAAAAAEAARARAAAEEEE 


"FACILITY: MEMORY MANAGEMENT 

ABSTRACT: peed A TO TRANSLATE LOGICAL ras FOR GLOBAL SECTION NAMES, 
EARCH ALL_GSD LISTS AND TABLES, AND HANDLE SHARED MEMORY 
GLOBAL SECTION PAGE AND DESCRIPTOR RESOURCES. 

ENVIRONMENT: VAX/VMS 


AUTHOR: KATHLEEN D. MORSE » CREATION DATE: 15-JAN-1979 


SOOO COCOSOOSOSOSOSOOSSSOSOSOSOSOSOSOSOSOSOSOSOSOOSOOSOSOSOOOOOOOSOOO 
DOOSOOS SOOCSOSSOSSSSOSOSSSOOSSOSOSOSOOOSOSOSOSOOSOOSOOOOOOOOSOSoOO 


GQOOCCOCOSOCCOSGSOOOSOOOCOCOOCOOCOOOOOCOOOOOOOOOOoOoOOoOO 


MODIFIED BY: 
V03-009 MSH0042 Michael S. Harvey 4-May-1984 
Object name buffer also must be zero filled. 
soeres — name buffer myst pe sere filled for eesseseny’ 
ma ng of name red in shared memory common data page. 
(this wes ident vos- 508, Ssmayst 982). _ 
v03-007 TMKO001 Todd M. 1% 
Completely re-write the Pecitane MAGSGSDSANL 6. RAGSMBXTRNLOG, 


and PAnGSC FTRNLOG. The basic changes made incl ude: 


1. Use of the fast internal Logical name routine LNMSSEARCH_ONE 
to do each iterative translation inaveee of making iterative 
calls to the old STRNLOG system service. 


2. Extension of the size of logical names from the old 63 byte 
value to LNMSC_NAMLENGTH. 


NOUS WN OOO NAUEWIN OC OO NAU EWN SO OD NAU EWN 0 OO NAMES WN OOONOUS wn 


SOOOSOSCCOOSOOCOSOSOSOSOOSOOOOOOOSOOSOOSOOSOSOSOOOOOSCOOOOOOOOOOOOOOOOOOOoOOO 
PVPS TST Be Be BB BS BE SE MANNII AIA POPU PSPININPUNINIDD OO ee es 


OoOooooooooo 
SQOooooooooooecoo 


SoSoooooooo 
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000 
0000 


3. Use of a KRP to provide space for a logical name translation 
work area instead of the kernel stack. 


4. Micro-optimiztion and extensive documentation of the 
three routines. 


V03-006 MSHO036 Michael S. Harvey 20-Apr-1984 
Correct upper bounds check on global section names for 
shared memory global sections. 


VO3-005 MSHO004 Michael S. Noryey 6-Jan-1984 
Add support for lengthened global name field in global 
section descriptors. 


V03-004 0MW4037 DMWalp 
Intergate new logical name structures. 


v03-003 KDM0028 Kathleen D. Morse 10-Nov-1982 
Fix demand-zeroing of shared — global section 
that is mapped backwards by reversing the INADR range. 


26-May-1983 


Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se 


wie 
WONAUE WN OOONOAUE Win" OOo 


NNN NIA AAPA OOAOO 


me ds 
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~SBTTL DECLARATIONS 


SECTION DESCRIPTOR R 


> ett 
DECLARATIONS 


sega” 


E ENTRIES 
TROL BLOCK 
IN DATA PAGE 
INITIONS 
OL BLOCK 


ATA STRUCTURES 
TRY 


DESCRIPTOR 
NAME ATTRIBUTES 


ITY LEVELS 
L NAME BLOCKS OFFSETS 
OL BLOCK 


D 
R 
CKET 


ae 
w 
a 

See eee Oe 


EQUATED SYMBOLS: 
OWN STORAGE: 


MACROS: 


ee *e*e *ere re ee rere 


H—PNTNOR. DOO CIM TM OR. DOO — CUM TM OR. DOO CUM 
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SHMGSORTN = GLOBAL SECTION DESCRIPTOR R TINES. FOR 16-SEP-1984 01:14: AX/VMS Macr 4- Ps 
v04- CLR/SET-BITM ~ CLEAR/SET BITS IN SHARE mitt 7 84:19:88 YYS. SACISAMGSDRIN. MAR; 1 “ 4d) 
«SBTTL CLR/SET_BITMAP = CLEAR/SET BITS IN SHARED MEMORY GBL SEC BITMAP 


: FUNCTIONAL DESCRIPTION: 


THIS ROUTINE CLEARS/SETS THE BITS IN THE GLOBAL SECTION BITMAP 
CORRESPONDING TO SPECIFIC PHYSICAL PAGE FRAME NUMBERS (PFN) ASSOCIATED 
A gL0 SECTION SPECIFIED BY A GSD. THE GSD CONTAINS UP 
TO #GSO$C_PFNBASMAX PIECES EACH PIECE DESCRIBED BY TWO LONGWORDS 
THE RELATIVE PFN OF THE FIRST PAGE IN THE PIECE, AND A COUNT OF T 
NUMBER eg paces IN THE PIECE. USING THIS INFORMATION, THIS ROUTINE 
THE ADDRESS OF THE BITS IN THE BITMAP THAT CORRESPOND TO 
THESE TRELATive PFN'’S. THESE BITS ARE THEN CLEARED/SET FOR EACH PIECE OF 
GLOBAL SECTION. 
: CALLING SEQUENCE: 
BSBW  MMGSSET_BITMAP 
BSBW  MMGSCLR~BITMAP 


INPUT PARAMETERS: 


R5 = ADDRESS OF THE SHARED MEMORY COMMON DATA PAGE 
R6 = ADDRESS OF THE GLOBAL SECTION DESCRIPTOR 


IMPLICIT INPUTS: 
; THE GLOBAL SECTION DESCRIPTOR HAS BEEN INITIALIZED. 
OUTPUT PARAMETERS: 

: NONE 

; IMPLICIT OUTPUTS: 

; THE CORRESPONDING BITS IN THE BITMAP ARE CLEARED/SET. 
; COMPLETION CODES: 

; NONE 

: SIDE EFFECTS: 

3 NONE 


S$ RRERRRREAA ERPS RAAT A AAA AAAAAAAAAAAAAAAAAAAAAAAAAEAATAAAeAAAA AAAS 
s wekeeeeeeereserenee THE FOLLOWING CODE MAY BE PAGED teeeeeaeeeeeeereree 
-PSECT YSEXEPAGED 


° 
GF SRAAAARAT LARA AAA ALAA HATTA AAA AAAAAAAAAAAAAAAARARAAAARAAARAARAAAAARAAK AAT 


é -ENABL LSB 
MMGSSET_BITMAP:: 
4) PUSHR #*M<RO,R1,R2,R3,R4,R7,R8,R9,R10> SR 


REG 
MCOML #0,R4 s INDICATE 


ISTERS 
BITS ARE TO BE SET 
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y04-000 E LEAR/SET BITS IN SHARE green 188 8h: 15:88 SYS. SRCJSHMGSDRTN.MAR; 1 . (3) 
06 1 ? 173 BRB 5$ sENTER COMMON CODE 
; 175 MMGSCLR -BITMAP:: 
O79F 8F BB 1% PUSHR #*McRO, R1,R2,R3,R4,R7,RB,RI,RIO> SAVE REGISTERS 
4 06 a: CLRL s INDICATE BITS ARE TO BE CLEARED 
57 of aS. 55 gi F 178 5$: ADDL HDSL GsB TMAP(RS) , R7 [GET ADR OF BITMAP 
A6 SE 4 17 MOVA nS, L_BASPF RO :GET ADR OF FIRST BASE P 
9A 18 0 NOVZBL #GSDSC_ PPNBASMAS. af 'GET # OF BASES ALLOWED iN GSD 
1B OY ; FIND_PIECE: 
52 80 D 1B Oi MOVL RO)+,R :GET RELATIVE BASE PEN 
5 80 D IE 184 MOVL RO)+_R [GET SIZE OF THIS PIECE 
40 1 = BEQL ALL DONE 'BR ON NO MORE PIECES OF SECTION 
$ : COMPUTE THE BYTE ADDRESS OF THE FIRST BIT TO CLEAR IN THE BITMAP. 
SA 52 FD 8F 78 1 § : ASHL #32 R10 :GET # BYTES OFFSET INTO BITMAP 
58 SA OS? cl 0 190 ADDL3 Z.A19: ‘BYTE mi: OF FIRST BIT TO CLEAR 
59 SA 03 : 0 ¢ 191 ASHL iG RS [GET # OF BITS SKIPPED 
59 52 #59 «CC 6 6 19¢ SUBL3 Rone ‘BIT OFFSET FOR FIRST BIT TO CLR 
9 4 19% LOOP CLEARING THE REMAINING BITS IN THE FIRST BYTE OF THE BITMAP TO BE 
034 196: 
68 01 59 54 FO 034 199 10$: INSV —R4, RO, #1, (RB) ;CLEAR/SET ONE BIT OF BITMAP 
53 p7? (0039 198 DECL TONE LESS PAGE 10 CLR BIT FOR 
23 13 0038 «(19 BEQL  NEXT_PIECE [BR IF NO MORE PAGES IN PIECE 
9 06 003D 200 INCL RO :POINT TO NEXT BIT OF BYTE 
08 59 91 O03F o1 CMPB sR, #8 DONE WITH THIS BY 
FO. 0:19 O42 0¢ BLSS _—- 108 ‘BR ON NO, GO CLEAR ANOTHER BIT 
044 204 ; NOW DETERMINE THE NUMBER OF BYTES OF BITMAP THAT ARE TO BE TOTALLY CLEARED. 
044 205 : CLEAR THESE BYTES WITH CLRB INSTRUCTIONS, THEN LOOP BACK TO CLEAR THE BITS 
O44 06 : AT THE END OF THE PIECE OF BITMAP WHICH DO NOT USE AN ENTIRE BYTE. 
58 6 Soed 08 * INCL Rs :POINT TO NEXT BYTE OF BITMAP 
59 D4 4 09 CLRL S INDICATE FIRST BIT OF BYTE 
SA 53_—sOFD er 4 10 ASHL Rs R3.R1 R10 [COMPUTE # OF BYTES TO CLEAR 
52 SA 03 7 4D 211 ASHL = #3 R :COMPUTE # OF BITS CLEARED 
08 1 51 1 BEQL [BR IF NO WHOLE BYTES TO CLR 
88 08 59 26 FO 5 13 20S: INSV R4_R9, #8, (RB) + SCLEAR 8 BITS OF BITMAP 
Fa SA OFF 5 14 SOBGTR R10 gos ;ONE LESS BYTE TO CLEAR 
53 52 ¢2 0058 215 25$: SUBL2 Re R :COMPUTE # OF BITS LEFT TO CLR 
D4 «14 % 1 10$ [BR TO CLEAR REMAINING BITS beB) 
6 18 > REPEAT CLEARING BITS FOR UP TO #GSDSC_PFNBASMAX PIECES OF SHARED MEMORY. 
6 0 ext PIECE: 
B8 51 FS 6 221 SOBGTR R1,FIND_PIECE :BR TO GET NEW BASE PFN AND CNT 
6 : ALL_DONE : 
O79F 8F BA 6 4 POPR #°M<RO,R1,R2,R3,R4,R7,RB,R9,R10> ;RESTORE REGISTERS 
we 6 .DSABL LSB 
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-SEP- 14 SYS. SRCJSHMGSDRTN.MAR; 1 (4) 
ores .SBTTL FINDGSDPFN = FIND GSD USING SPECIFIC PFN 
: FUNCTIONAL DESCRIPTION: 


or 
a 
tee 


SOOO OCOOOOOOSOSOSOSOSOSOOSCOOOSOOOSOOSOOOOOOOOOOOOOOOOO ae 


THIS ROUTINE TAKES A PFN AND SEARCHES THE SHARED MEMORIES TO FIND 
THE GLOBAL SECTION THAT IS MAPPED TO T PFN, THEN DECREMENTS THE 
PTE REFERENCE COUNT BY ONE. THE ROUTINE IS CALLED WHENEVER A PROCESS 
; DELETES A VIRTUAL PAGE WHICH IS MAPPED TO A SHARED MEMORY GLOBAL 
: SECTION. NOTE: ALL PAGES IN SHARED MEMORY ARE ASSUMED TO HAVE PFN'S 
Heh 3. Mer | eal (THE MAXIMUM LOCAL MEMORY PFN CONTAINED IN 


: CALLING SEQUENCE: 
: BSBW § MMGS$F INDGSDPFN 
: INPUT PARAMETERS: 

: RO = THE PFN TO BE LOC 
: R1 = COUNT TO DECREMEN 
; (0 FROM MMGSPTEPF 


OOOOGOCOOCOOOCOOSO VY 


DDD DDD DD DDD. DD DS DDD DDD DDD PP AAA AAA AAA AOA OOOOO Ur 


ATED 
: T PTE REFERENCE BY 

NMF Y) (1 FROM MMGSDELPAG) 
; IMPLICIT INPUTS: 


THE SHARED MEMORY CONTROL BLOCKS, SHARED 
AND THE SHARED MEMORY GLOBAL SECTION DES 


; OUTPUT PARAMETERS: 


R4 = SHARED MEMORY CONTROL BLOCK ADDRESS (SHB) 
R6 - GLOBAL SECTION DESCRIPTOR ADDRESS (GSD) 


; IMPLICIT OUTPUTS: 


; THE PROCESSOR REFERENCE COUNT IN THE GSD THAT IS MAPPED TO THIS PFN IS 
; DECREMENTED BY ONE, IF THE GSD IS FOUND. 


Teron COMMON DATA PAGES, 


CRIPTOR TABLES. 


; COMPLETION CODES: 


SS$_NOSUCHSEC - NO CORRESPONDING GSD FOUND FOR PFN 
SSS_NORMAL = SUCCESSFUL DECREMENT OF GSD REF COUNT 


; SIDE EFFECTS: 
NONE 


OOSOCOCOCSCOOOSCSOSOSOOSOSOOSCOOOCOOOSOOSoOoOO 


SINS DD DDD DD AD TUT BB ELE ES 


NAME WO OOO NAME WIN O OO NA UNE WII 9 ODNOU EWN "OOD NOULSWI—O0OM —-O 


RRAAAAARAAAAAATAA AAA AAA AAA AAAAAAAAAAAAA TATA AAAAAAAAAAAAAAAAAAAe AAAs 
8 eeeeeeeeeeeree THE FOLLOWING CODE MUST BE RESIDENT eeeeeeeeeeeereeerer 
y -PSECT SMMGCOD 


. 
e 
fF SAAAAAHAAAAAH HAKATA AAA A TARTAR AARC AAAAAAAAAAARAeAAAAARAe eee eee eee eee 


7 
¢: 7 
68 7 
0000006 : 


4 MMGSF INDGSDPFN:: 


<u“ 


SHMGSDRIN 

V04= 
OSAE o 
SA E 


54 eeeeedl 


53 08 
52 


5655 


58 04 A7 


OSAE BF 


co, 
wor 
nn 


APOIO — 2 9 2 33 3 3 BOQOOOOCOOCO 
MOT WDWODWOPVOD WHIPINHINIMVIODOD0G FOO 


COOOCOCCOCCOCO COSCO SOOOOOOCOOOCOOOOOOOOSoOO 


my ey mee 


DPMP IMININY BO NNN NNN BO DS NOM DS 


oo 
rx 


aD 
DOOOOOSOOOSOOSOOSOSOSOOSOOOSOSOSOOSOOOOSOOOOOOSOSOSO “4 


S89 OSS SSSFSSESESE 


PUPP IIIT Ee 


411 
SECTION DESCRIPTOR ROUTINES FOR 16-SEP-1984 
N - FIND GSD USING SPECIFIC PFN 873Eb= | S8c 83:47 
-ENABL LSB 
PUSHR §=#*M<R1,R2,R3,R5,R7,R8B,R10> 
PUSHL #1 


MOVL G*EXESGL SHBLIST,R4 
BEQL NOT _FOUND 


RED MEMORY MAY HAVE A SHARED MEMORY 
CTED (1.€., AVAILABLE FOR USE). 
SHBSV_CONNECT, MUST BE SET FOR IT T 


BBC #SHBSV_CONNECT, SHBS$B_FLAGS 
SHBSL_BATAPAGE (R4) ,R5 
SUBL’ SHBSL~ BASGSPFN(R4) , *RO,R2 


GETN NXT_S 
CMPL shos GSPAGCNT (RS) 
BGTR Get N 


m> 


mee Ge Ge Ge Ge 


WHICH IS MAPPED TO THIS P 
tt SHDSL_GSDPTR(RS) ,R5,R6 


BSB MMGSVALIDATEGSD 
30$: TSTL R6 

BEQL § NOT_FOUND 

eosD$e PFNBASMAX,R 

MOVAB GSD$L COASPENT CROs. 37 
40$:  CMPL 2, (R7) 

BLSS 

ADDL3 (R7),4(R7),RB 

BEQL é $ 

CMPL RB 

BLSS UND_IT 
50$:  ADDL2 oR 

SOBGTR R 
60$: BSBW Maser TNXTESD 

BRB 0$ 
: THE GSD MAPPED TO THE SPECIFIC P 
: TO THIS PFN IS BEING DELETED. THEREF ORE 
+ IN THE GSD MUST BE DECREMENTED B Y ONE. < 
; LESS Bre MAPPED TO THIS GLOBAL arc 
fouND_1T: 

ADDL3 #7,4(SP),RO 

SB MMGSDECSHMREF 


8 
MOVZBL #SS$_NORMAL RO 

RETURN SUCCESSFULLY HERE. 

ksp_ HERE: 


ADDL2 #4,SP 
+4 #*A<R1,R2,R3,R5,R7,R8,R10> 


FP WAM AAA ACI IITIRIIINININININ — — 3 BQO OODCOCOCOSCOOOOOOOO0OO0OOMMM@D@C —“H 


OOD NIA NEW $9 OD NIA UE WIN SO OOD NIA MEW SO OD NAN E WWI 9 OD NAME WI OQOONAW —-O 
=z 
o 
< 
~ 
o 
r 


THE SHARED MEMORY CONTAINING THIS PFN HAS BEEN FOUND. 


FN HAS BEEN FOUND. 


+08 AX/VMS Macro v04-00 Page 7 
SYS.SRCIS HMGSDRTN.MAR; 1 (4) 
SAVE REGISTERS 
:PUSH A POSITIVE VALUE TO 
SINDICATE TO MMGSVALIDATE AND 
‘MMGSGETNXTGSD NOT TO USE ALL 
TSHARED MEMORIES IN SEARCH 
tJUST THE ONE PASSED IN R4,R5 
[GET FIRST SH MEM CONTROL BLOCK 
[BR ON NO SH MEMORIES CONNECTED 
CONTROL BLOCK (SHB) BUT MAY NOT BE 


THEREFOR Usep” ONCE AN SHB IS FOUND, THE 


O BE USED 
(R4) ,GET NXT a :BR ON SHM eso’ 
sGET ABR OF COMMON DATA PAGE 


:BR IF 5 NOT _IN THIS - MEM 
BR IF PEN NOT IN THIS SH MEM 
NOW FIND THE GSD 


GET ADR OF FIRST GSD IN SHM TBL 


GET THE NEXT PGS IN SHM TBL 
:G0 CK7CK IF PFN IS IN THIS GSD 


THE PTE CORRE SPONDING 
THE PROCESSOR REFERENCE C 
(IN OTHER WORDS, THERE WILL BE BE NONE 


:GET REFCNT + LCK TO DECREMENT 
ONE LESS REF FOR THIS PTE 
SET RETURN CODE TO SUCCESS 


sRESTORE green POINTER 
;RETURN TO CALLER 
;RETURN 10 CALLER 


<“ 
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v04-000 FINDGSDPFN = FIND GSD USING SPECIFIC PFN 5-SEP=1984 03:47:55 CSYS.SRCJSHMGSDRTN.MAR; 1 (4) 
A 428 
A a4 : THE PFN WAS NOT WITHIN THE LAST SHARED MEMORY. CHECK IF THERE IS ANOTHER 
A 4 : SHARED MEMORY TO SEARCH, 
A 303 GET_NXT_SHM: 
54 64—CO«é A 48 MOVL SHBSL LINK (RA) ,R4 :GET NEXT SH MEM CONTROL BLK 
As 6p BNEG 0$ [BR IF ANOTHER MEM TO SEARCH 
6F 3 
GF g ; THE PFN WAS NOT FOUND IN ANY OF THE SHARED MEMORIES. REPORT FAILURE. 
ber 37 NOT_FOUND: 
6F 355 ASSUME S$S$_NOSUCHSEC LT <*x10000> 
50 0978 BF 3¢ F 36 MOVZWL #SSS$_NOSUCHSEC,RO ;REPORT FAILURE TO FIND GSD 
ec (11 074 37 BRB RSB_RERE :GO RETURN TO CALLER 
0076 359 .OSABL LSB 


an 
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= MODIFY SHARED MEMO ~3EP=1 $be 84:47:88 USys. SRCIJSHMGSDRTN.MAR; 1 ae 8 3) 
~SBTTL DECSHMREF/INCSHMREF = MODIFY SHARED MEMORY GSD PTE REF COUNT 


p++ 
; FUNCTIONAL DESCRIPTION: 


SHMGSORTN 
¥04=000 


za> 
mi 
ws 

~O 
—rm 
20 
o- 
22 
» 

mo 
“rn 


THIS ROUTINE MODIFIES THE PTE REFERENCE COUNTS IN A SHARED MEMORY 

GLOBAL SECTION DESCRIPTOR. THERE IS ONE REFERENCE COUNT FOR EACH 

PROCESSOR ON THE SHARED MEMORY. THE PORT NUMBER OF THE PROCESSOR 

IS_THE AWOgX TO THE CORRESPONDING REFERENCE COUNT. THE FIRST 

ENTRY POINT, MMGSDECSHMREF, CAUSES THE COUNT TO BE DECREMENTED 

WHILE THE ENTRY POINT, MMGSINCSHMREF, INCREMENTS THE COUNT. 
CALLING SEQUENCE: 

BSBW MMGSDECSHMREF 

BSBW MMGSINCSHMREF 


INPUT PARAMETERS: 
RO - THE NUMBER OF REFERENCES TO BE ADDED OR > abe ena 
R6 = ADDRESS OF THE GLOBAL SECTION DESCRIPTOR 
; IMPLICIT INPUTS: 
THE GLOBAL SECTION DESCRIPTOR HAS BEEN INITIALIZED. 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 


THE REFERENCE COUNT CORRESPONDING TO THIS PROCESSOR IS UPDATED 
IN THE GSD. 


= 
OOoOoQoQooooooooooQoooooooooOoooooe 45 


SOOCOCOSOSCOSOCOSCOOCOSOSOOO SOOO SCOOCOCOCOCOOOOOOOOOOOOOO 


COMPLETION CODES: 


QQ aaa aaa eee 
SOP DPAPEDPAEDP DADA PPA AAPA AAA PDA AAA AAA AA AAA AAA AA AA AA AAA AA AA AAA AA AA 


0 

0 

0 

p NONE 
2 SIDE EFFECTS: 
4 NONE 
4 
? oe 
4 F RRRARERAAA AAA A AERA A AAA ARATE AARA AAA AA AA ARARARAAA HAAR AAA AAA AAT 
¢ : eeeeeeeeneneee THE FOLLOWING CODE MUST BE RESIDENT t2eeeeeererenereaee 
409 ; 

0000 ; -PSECT SMMGCOD 
4 : PRAHA AAAAA TERA A AAA AAA AAA AA AAA AA AAAAAAAAAAAAAAAA RATA AeA eee ees 
4 
414 MMGSDECSHMREF: : 
~~ 6S.hU ? MNEGL RO,RO s;NEGATE REFERENCE COUNT 

4 


: MMGSINCSHMREF :: 
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v04= DECSHMREF/INCSHMREF = MODIFY SHARED MEMO 5=SEP=1984 03:47:55 ([SYS.SRCJSHMGSDRIN.MAR; 1 (5) 
51 pp 79 418 PUSHL 1 :SAVE REGISTER 
51 15046 9A O007B 41 MOVZBL SHBSB_PORT(R4),R1 :GET PROCESSOR PORT NUMBER 
74 A641 50 £0 7F = 420 ADDL2 RO, GSOSL_PTECNT1(R6)CR13 SINCR REF CNT FOR CORRES PROCESSOR 
A 4 421 BLSS 108 SBUGCHK IF NEGATIVE REF COUNT 
oc a4) «6 550—s«CO 6 4 : ADDL2 RO, SHBSL_REFCNT(R4) SINCR PORT'S REF COUN 
A 403; BLSS 20% :BUGCHK IF NEGATIVE REF COUNT 
3 A 426 NOP ; (These should be removed 
1 B 425 NOP ; and the BLSS restored after 
Tos § 3; the refcnt bug is found.) 
51 BE B0 Pe MOVL  (SP)+,R1 SRESTORE REGISTE 
0 ef 4 : RSB SRETURN TO CALLER 
$99 4 0 108: BUG_CHECK REF CNTNEG, FATAL :FATAL ERROR 
094 431 208: BUG CHECK NEGSHBREF . FATAL [FATAL ERROR 
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PAGES GLOBAL SECTIO SYS.SRCJSHMGSDRTN.MAR; 1 
Pe «SBTTL ALOSHMPAG = ALLOCATE PAGES GLOBAL SECTION PAGES FROM SHARED MEMORY 
; FUNCTIONAL DESCRIPTION: 


o2 
ro 


C 


rH 


THIS ROUTINE ACCEPTS AS INPUT THE SIZE OF THE GLOBAL SECTION TO BE 
CREATED AND THE ADDRESS OF THE GSD WHICH DESCRIBES THE NUMBER OF 
NON-CONTIGUOUS PIECES THAT MAY BE ALLOCATED FOR THE SECTION. IT 
THEN SEARCHES T ; BITMAP IN THE an ste MEMORY COMMON DATA PAGE 

FOR THE NUMB F PAGES NEEDED AND STORES THE PAGES ALLOCATED IN 
THE GSD, ALSO CLEARING THE CORRESPONDING BIT IN THE BITMAP. 

THE BITMAP_IS LOCKED AGAINST ACCESS BY ANY OTHER PROCESSOR DURING 


; CALLING SEQUENCE: 
BSBW MMGSALOSHMPAG 
INPUT PARAMETERS: 
R4 = ADDRESS OF THE SHARED MEMORY CONTROL BLOCK 
4 - ADDRESS OF THE GLOBAL SECTION DESCRIPTOR 
R7? = COUNT OF PAGES TO BE ALLOCATED 


IMPLICIT INPUTS: 


; THE ALLOCATION. 


I 
FOR EACH PAGE TO BE USED FOR en $s 
GE I$ LE FOR A 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 


THE GSD DESCRIBES THE PAGES ALLOCATED 
CORRESPONDING BITS ARE CLEARED IN THE 


COMPLETION CODES: 


* THE SECTION AND THE 


F 
BITMAP. 


QoOCooCoooooooooosooooooooooooooooooQoOQOOOOCOOOOOOOO 

WOOOOOOVOODOOOOOVOOOODODOOOVOVOOOOVOOOOVDOVOOVDOOOVOOOOOVOOO 

SNS SNP PAA AAA AAD UT BB BB BB EAI 
PANO ODA UNE ADR — S OO NOU EAI O OO NOU SAR)" OWOOnNOUSwWw FO 


SS$_NORMAL = ALL PAGES FOR SECTION SUCCESSFULLY ALLOCATED 
SSS_INSFMEM - NOT ENOUGH FREE SHARED MEMORY 
SSS$"INTERLOCK = UNABLE TO ACQUIRE BITMAP LOCK 


SIDE EFFECTS: , 


IF SUFFICIENT PAGES CANNOT BE FOUND, THE ROUTINE TO SCAN AND 
FREE GSD'S AND DATA PAGES IS CALLED. 


Sete Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge + Se Ge Ge Ge Se Ge Ge Ge 


SHAT AAAKAA AACA AAA AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAAAAAAAAAE 


Pe Oe ee ee ee ee ee tt ee eee eS SS 


COOCOOCSCOOOSOSOOSOOSOOSOOOSOOOOOOOOSOSOOOSOOOOOOOOOOoOoOO 
09000907 ~ “09.09.0909 09 00 09 Cd Co 0d Cd 09 GD CD 09 CD CD 0D OD 0D 09 0D CD Cd 0D OD CD CD CD 0D C9 GD 0D 0D 0D 0D 0D OD. 
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SHMGSDRTN = GLOBAL SEC peateieler ROUTINES FOR 1 mise 9 93:15:38 yeni vee Macro V04-00 Page i 
V04= ALOSHMPAG - CATE PAGES GLOBAL SECTIO 5-SEP=-1984 03:47: SYS.SRCJSHMGSDRTN.MAR; 1 (6) 
j teeeeereeereereere THE FOLLOWING CODE MAY BE PAGED teeeeereererererene 
0000 5 .PSECT YSEXEPAGED 
: RRRARARARE TERE E REAR ETAT RARE AAERAAARERAAAAAAAAATAAR ARETE AAAERERE TEES 
MMGSALOSHMPAG: : 
pce 1 E Le 
= or “M<R1,R2,R3,R4, Pgh R8,R9,R10,R11> fae REGISTERS 
A 3$: ROVIGL #SHOSV GITRAPLCK RO BIT NUMBER OF LOCK REQUESTED 
° ene 0 BSBW MAGS SHATXLK 6 T <i, MUTEX AND BIT LOCK 


L SECTION 
AG = ALLO 
98 490 
9 491 
198 
49 
494 
495 
496 
68 49 
06 498 
6C 49 
$95 80 ape 
24 50 £9 O78 é LOCKE UNABLE TO GET BITMAP LOCK 
009E cS 15 AG : 7 MOVB ae FORT RG), SHD$B ‘simencnadl’ Set BITMAP LOCK OWNER 
58 57 00 0078 i MOVL R SCOUNT OF PAGES REQUESTED 
4 06 9A 44: 5 MOVZBL #G8D PFNBASMAX,R : COUNT OF PFN BASES ALLOWED 
5B OSG Ag 9 0 6 MOVA GSDSL CBASPENT CROs R11 'GET ADR OF FIRST BASE IN GSD 
51 Oc AS 3 C 5 650 ADDL , SHO$L_GSBITMAP(RS) ,R1 [VA OF GS BITM 
0 10a5 07 cr 00 A 508 ADDL gSHDSL gOSPAGCNT (RS) .RO [COMPUTE # BITMAP BYTES, INCL 
50 50 FD 8F 8 O8F 509 ASHL ni Sh : THE LAST PARTIALLY Esto BYTE 
06 1 0094 10 BNEQ uxt RO no :BR TO ALLOCATE PAGES 
OOBE 31 0096 1 BRW INSF_MEM 'BR IF NO GS PAGES AVAILABLE 
0099 ig LOCK_ERR: 
0086 31 099 1% BRW 100$ ;RETURN TO CALLER 
009¢ 18 : RO = LENGTH IN BYTES OF BITMAP LEFT TO SEARCH 
09C 517 : R1 = BYTE ADDRESS IN BITMAP TO START SEARCHING 
009¢ 218 ; Re = BYTE ADDRESS IN BITMAP OF FIRST SET BIT 
009¢ 519 : R3 = BIT NUMBER OF FIRST SET BIT 
009¢ 0 : R4 = COUNT OF PFN BASES LEFT TO USE IN GSD 
009¢ 1 : RS = SHARED MEMORY DATA PAGE ADDRESS 
009¢ : : Rg = GLOBAL SECTION DESCRIPTOR ADDRESS 
09¢ + R7 = NUMBER OF PAGES REQUESTED 
09¢ 4: RB = NUMBER OF PAGES MORE NEEDED 
09¢ 5 : R9 = BYTE ADDRESS IN BITMAP OF FIRST CLEAR BIT 
o9¢ 5 : + R10 = BIT NUMBER OF FIRST CLEAR BIT 
O9¢ + R11 = BYTE ADDRESS IN GLOBAL SECTION DESCRIPTOR FOR NEXT PFN BASE 
a3 ; 
009¢ 1 : THE BITMAP CONTAINS ONE BIT FOR EACH PAGE OF SHARED MEMORY ALLOCATED FOR 
09¢ : : GLOBAL SECTION PAGE USAGE. A SET BIT INDICATES THAT THE PAGE MAY 
9¢ : ALLOCATED FOR USE. A CLEAR BIT INDICATES THAT THE PAGE IS ALREADY BEING 
3¢ 4 + USED OR IS A BAD PAGE. 
9¢ 6 : THE BITMAP IS SEARCHED FOR SEGMENTS OF CONTIGUOUS BITS THAT ARE SET. 
09¢ : EACH PIECE OF BITMAP THAT CONTAINS CONTIGUOUS SET BITS IS DESCRIBED VIA 
9C 8 + FOUR REGISTERS: 
9C : R2 = ADDRESS OF SITMAP BYTE CONTAINING FIRST SET BIT 
9¢ 540: R3 = BIT NUMBER OF FIRST SET BIT WITHIN THE BYTE 
9¢ 541: RJ = ADDRESS OF BITMAP BYTE CONTAINING FIRST CLEAR BIT 
3¢ 4¢ ; R10= BIT NUMBER OF FIRST CLEAR BIT WITHIN THE BYTE 
9C 544 : THE SEARCH OF THE BITMAP FOR THESE PIECES WORKS AS FOLLOWS: 
9¢ 545: 1, FIND THE FIRST BYTE WITH AT LEAST ONE BIT SET (SKPC #0) 
9C 546: 2. FIND THE BIT NUMBER OF THE FIRST SET BIT (FFS) 
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SHMGSDRTN = GLOBAL SECTION DESCRIPTOR ROUTINES FOR 16-SEP-1984 01:14: AX/VMS Macro V04-00 Page 13 
v04-= ALOSHMPAG = ALLOCATE PAGES GLOBAL SECTIO gre 188 Oh: 15:88 SYS.SRCJSHMGSDRTN.MAR; 1 ef 
09C 547; 3. FIND THE FIRST CLEAR BIT FOLLOWING THE SET BIT 
9¢ 48 ; A. FIRST CHECK IF THE CLEAR BIT IS IN THE 
9¢ 549: SAME BYT AS THE SET BIT; IF SO THEN (FFC) 
9C 0; THE PIECE 1S FOUND (BRB GOT_PIECE) 
9¢ 1: B. SKIP THE BYTE CONTAINING THE FIRST SET 
9¢ ; ; BIT (BY RESETTING RO AND R1) 
9¢ : C. FIND THE FIRST BYTE THAT HAS AT LEAST 
9¢ 4; ONE BIT CLEAR (SKPC #1) 
9¢ 5; D. FIND THE BIT NUMBER OF THE FIRST CLEAR 
3¢ $ ; BIT; THE PIECE IS FOUND (FFC) 
9C : NXT_PIECE: 
61 50 00 38 9 SKPC —-_- #0, RO, (R1) ;FIND NEXT BYTE WITH A BIT SET 
13 O0A 60 BEQL :BR ON NO MORE BITS SET 
53. 61 08 0 €A OOA 61 FFS 40.48, (R1) RS [FIND BIT # OF FIRST BIT SET 
5 1 00 OAr 6¢ MOVL  R1.R :SAVE ADR OF BYTE WITH BIT SET 
SAA 64 : NOW FIND THE FIRST CLEAR BIT WHICH INDICATES THE END OF THIS PIECE. 
OAA 66 FIND_PIECE_END: 
SA 08 33 C3. OOAA 6 SUBL3 R398 R10 ;GET # BITS LEFT IN BYTE 
SA 61 COSAsCSS FB OA 68 FFC R3_R10,(R1),R10 t1$ THERE A BIT CLEAR IN BYTE? 
05 13 008 $9 BEQL -«15$ [BR ON REST OF BITS SET IN BYTE 
59 38 dd 008 0 MOVL  R2,R9 'SET ADR OF BYTE W/ NXT CLR BIT 
17 11 «0088 571 BRB GOt_PIECE :GO SEE IF CAN USE THIS PIECE 
20 D7 OOBA 0 15$:  DECL RO 'SKIP PAST THE BYTE WHICH 
1 D6 OOBC 57 INCL RI CONTAINS THE FIRST SET BIT 
61 50 FF BF 0B 74 SKPC = #1, RO, (R1) SLOOK FOR NEXT CLR BIT IN BITMAP 
07 13 0O0C 75 BEQL ALL. REST SET :BR IF ALL OF BITMAP SET 
SA 6108 00 EB 00C i: FFC #0,%8, (RT),R10 ‘FIND BIT # OF FIRST CLR BIT 
; OCA f BRB 206 :GO SET BYTE ADR 
OCC 8 : THIS CODE CAN BE ENHANCED HERE. IT DOES NOT TAKE INTO ACCOUNT THE LAST 
OCC 0 ; BYTE OF BITMAP IF THE ENTIRE BYTE IS NOT USED. A PIECE THAT EXTENDS TO 
C¢ 1 : THE END OF THE BITMAP WILL HAVE POINTERS THAT POINT TO THE NEXT BIT 
eC ¢ : PAST THE END OF THE BITMAP. 
CC 4 ALL_REST_SET: 
3A D4 oe 5 CLRL R10 sSAVE BIT # OF FIRST CLR BIT 
59 51 »O cE 6 20$: MOVL  R1,R9 [SAVE ADR OF BYTE WITH BIT CLR 
D1 8 : ONCE A CONTIGUOUS PIECE OF BITMAP CONTAINING SET BITS IS FOUND, THE 
D1 ; FOLLOWING INFORMATION IS IN THE REGISTERS: 
D1 9 ; = ADDRESS OF THE BYTE IN THE BITMAP CONTAINING THE FIRST SET BIT 
p10 591: R3 = BIT NUMBER OF THE FIRST SET BIT 
D1 36 ; R9 = ADDRESS OF THE BYTE IN THE BITMAP CONTAINING THE FIRST CLEAR BIT 
D1 «593: R10= BIT NUMBER OF THE FIRST CLEAR BI 
D1 594 : THE NEXT STEP IS TO COMPUTE THE NUMBER OF PAGES CONTAINED IN THIS PIECE 
Dt 99 : AND THE RELATIVE PFN OF THE FIRST PAGE. 
D1 39 GOT_PIECE: 
59 «59 52 C3 D1 38 SUBL3 R2,R9,R9 :GET # BYTES WITH ALL BITS SET 
D D3 9 ECL. sR [CORRECT SUBTRACTION CNT 
9 08 cea 0007 6 0 MULL2 #8,R9 [GET # PAGES AVAILABLE 
7E H ; f DD 4 Supt R10 89 (SP) ere 5 PACES Beer TRS T SET BIT 
3 —E ¢O 0061 6 z ADDL2 (SP)+. :GET TOTAL # PAGES IN PIECE 
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v04- ALOSHMPAG - ALLOCATE PAGES GLOBAL SECTIO ioe 84:15:88 Heys. SRCJSHMGSDRTN.MAR; 1 . 
r) D5 1 5 6 TSTL RB : MORE PAGES NEEDED? 
4 01 BGTR _INSF_MEM YES, FRAGMENTED MEMORY 
FC AB £6 109 ADDL2 RB8,-%(R11) ate onct UAL SIZE OF PIECE NEEDED 
1 ? 4 con 4 Fibce. CLA_BITMAP :BR AS GOT PAGES IN PIECES 
50 5406 SE 01 f : - “MOVA Gost BASPFN1(R6),RO SADR OF FIRST PFN BASE IN GSD 
51 046 «OA 3 MOVZBL #GSD$C_PFNBASMAX,R1 SCOUNT OF PFN BASES ALLOWED 
ees ASSUME GSD$L_BASCNT1 EQ <GSDS$L_BASPFN1+4> 
80 : DO 01 67 MOVL R.(R + :SET BASE PFN IN GSD 
0 dO «(01 6 MOVL  R7,(RO)+ [SET SIZE OF SECTION IN GSD 
1 p 13¢ DECL tANY MORE BASES TO SET? 
80 g 1 674 50$:  CLRO (RO)+ [CLEAR BASE AND COUNT 
FBS) OF 1% 3 SOBGTR R1,50$ SREPEAT TILL ALL BASES CLEAR 
14 ers CLR_BITMAP: 
FEC3 930 014 678 W MA SCLR_BITMAP ZCLEAR CORRESPONDING BITMAP BITS 
146 67 ASSUME NORMAL LT <*x100> 
50 01 9A 146 680 90$: § MOVZBL bess'n MAL ,RO REPORT SUCCESS 
00 009F (5 01 «=F? «20149 ~—s6 81 BBCCI het id BITAPL CK, SHDSB, FLAGS(RS). 9 $ +s RELEASE BITMAP LOCK 
FF 30 O14F 6 ‘ 98$:  BSBW  MMGSSHAT HM 
OF3E 8F BA 0152 683 100$: POPR #*M<R1,R2, RS, R4.R5.R8.R9-R10,R115 RESTORE REGISTERS 
05 13 6 , RSB 
157 6 $ INSF _MEM: 
00 009F cS =01.—s«édE?':—«C0157)—s BBCCl #SHD$V BITMAPLCK, SHD$B_FLAGS(R5),200$ ;RELEASE BITMAP LOCK 
O5F1 0 015D 688 200$:  BSBW  $MMGSSHATX SRELEASE SHM MUTEX 
54 OC A 00 160 689 MOVL eer tSPye Ke 'GET ADDRESS OF S 
909 0 164 690 BSBW RCE REEGSD TFREE UNOWNED PAGES, AND GSD'S 
0 E 167 691 BLBC ‘BR IF NOTHING WAS FREED 
FEFF 31 «016A 69¢ BRW 3$ [TRY AGAIN TO ALLOCATE PAGES 
0160 69 ASSUME $S$_INSFMEM LT <*x10000> 
50 01246 BF 3¢ 160 694 210$:  MOVZWL sss. INSFMEM, RO ;REPORT INSUFICIENT MEMORY 
DE 11 01 695 BRB 100 ‘RETURN TO USER 
0174 696 .DSABL us 
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~SBTTL ALOSHMGSD = ALLOCATE SHARED MEMORY GLOBAL SECTION DESCRIPTOR 
FUNCTIONAL DESCRIPTION: 
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rhs os A bs aLLocares A GLOBAL SECTION DESCRIPTOR BLOCK FROM THE 
ABLE OF GSD'S IN A SPECIFIC SHARED MEMORY. IT ACCEPTS AS INPUT THE 
ADDRESS, oF THE SHARED MEMORY CONTROL BLOCK. IT OUTPUTS THE ADDRESS 
F THE GSD ALLOCATED AND A SUCCESS CODE OR IF NO GSD IS AVAILABLE, 
AN ERROR CODE. THE GSD IS LOCKED FOR MODIFICATION. 


; CALLING SEQUENCE: 

BSBW MMGSALOSHMGSD 

; INPUT PARAMETERS: 
R4 = ADDRESS OF THE SHARED MEMORY CONTROL BLOCK 

IMPLICIT INPUTS: 
THE TABLE OF GLOBAL st iees DESCRIPTORS IN SHARED MEMORY HAS BEEN 
He git als HE CONS FIELDS IN THESE DESCRIPTORS ARE ALREADY 
INITIALIZED, ALSO. TH ne MSHA RED MEMORY CONTROL BLOCK AND COMMON DATA 
PAGE HAVE BEEN INITIALIZED BY CONNECTING TO THE SHARED MEMORY. 

OUTPUT PARAMETERS: 


RO = RETURN STATUS CODE 
R6 - ADDRESS OF THE GLOBAL SECTION DESCRIPTOR ALLOCATED, IF SUCCESSFUL 


IMPLICIT OUTPUTS: 


THE CONSTANT GSD FIELD 
BY THE ALLOCATING PROC 


COMPLETION CODES: 


Pes af. ALREADY INITIALIZED AND THE GSD IS LOCKED 


SS$_NORMAL = ALL PAGES FOR SECTION SUCCESSFULLY ALLOCATED 
SS$_GSDFULL - NO GSD AVAILABLE FOR ALLOCATION 
SSS-EXPORTQUOTA - PORT QUOTA EXCEEDED 


SIDE EFFECTS: 
THE GSD IS LOCKED AND NO OTHER PROCESS ON ANY PROCESSOR MAY ACCESS IT. 


If NO GSD CAN BE FOUND, FREEGSD IS CALLED TO SCAN FOR GSD'S AND DATA 
PAGES THAT CAN BE FREED. 


Be Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Fe Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se Ge Se Ge Se Ge Ge Se Se Ge Ge Se Ge 
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MMGSALOSHMGSD: : 
ENABLE LSB 
26 BB PUSHR bec R1,R2,R : SAVE REGISTERS 
4 Ad 3$: MOVL  SHBSL SBATAPAGE (RAD, RS 3GET R OF COMMON DATA PAGE 
5 AG) OA MOVZBL ie fe GE PORT NUMBER 
3C ASG2.~FFFF BF : ADAWI DSW reepQGBTACRS)ER2I TALLOC QUOTA FOR 1 CREATE 
6c 1 BLSS [BR IF NO QUOTA AVAILABLE 


J.1 


SHMGSDRTN = GLOBAL SECTION DESCRIPTOR ROUTINES. FOR 16-SEP-1984 AX/VMS Macro V04-00 Page 17 
V04=" ALOSHRGSD - MLOCATE SHARED MEMORY GLOBA mets 7 By: 133 ¢g SYS. SRCISHMGSDRTN.MAR; 1 th 
56 5504 AS 1 0187 5 ADDL3 see GSDPTR(RS) .RS,R6 ZADR OF FIRST GSD 
: 1 018¢ g 360 SEE IF GSD 1s UNUSED 
50 1 9 01 10$:  § MOVZBL SONE REF COUNT TO LOCK ENTRY 
0990 76'EF 16 1 J$B anche CSHMREF RELEASE LOCK ON GSD ENTRY 
08 A f 1 MOVZWL esos. SIZE (R6),RO SGET SIZE OF ONE GSD 
56 CS g 198 76 ADDL 2 R6~ :GET ADR OF NEXT GSD 
51 18 A ¢ 19 61 MOVZWL eae GSDMAX(RS),R1 [GET MAX # OF GSD'S IN TABLE 
50 21 C46 O1A2 «7 ‘ MULL [GET SIZE OF GSD TABLE IN BYTES 
CO O1A5 «76 ADDL 4 SADD IN BASE VA FOR DATA PAGE 
50° 0405 (CO O1A8 164 ADDL ad GSDPTR(RS) ,RO tADD ADR OF START OF GSD TABLE 
50 ; Di O1AC s CMPL :PAST END OF GSD TABLE? 
1E O1AF £66 BGEQU NO. FREE_GSD [BR IF PAST END OF TABLE 
50 1 9A 0181 208 MOVZBL #1-R [ONE REF COUNT TO LOCK ENTRY 
00000079"EF 16 01B4 168 J$B BAGS INCSHARE REF “LOCK ENTRY IN SHM GSD TBL 
DO 6 1 €0 O1BA id: BBS $V LOCKED GSDSL_GSDFL(R6),10$ ;BR IF GSD BEING MODIFIED 
eC 0 €0 O1BE 7 BBS #GSD$V-VALID 6spst GSDFL(R6),{10$ ;8R IF GSD IS IN USE 
¢ 1 € O1C2 77 BBSSI #GSD$V “lorKes GSDSC_GSDFL(R65,10$ ;BR IF GSD BEING MODIFED 
CAG 606 0106) «(77 INCL  SHBSL_REFCNT(R4) SONE FOR GSD OWNED BY THIS PORT 
50 5406 SE 0109 77 MOVAB Gspst BASPFN1(R6) ,RO SADR OF 1ST BASE PFN & CNT PAIR 
51 06 «GA O1CD) «(77% MOVZBL #GSD$C_PFNBASMAX,R :# BASE PFN'S ALLOWED IN GSD 
0 7C 0100 775 30$ CLRQ RO} [CLEAR ONE BASE PFN & CNT PAIR 
EB 1 €5 01D 176 SOBGTR 30 SREPEAT FOR ALL L BASES 
5 94 0105 77 CLRB eSbee _DELETPORT (R6) ‘CLEAR THE DELETOR PORT # 
52 a6 «615 AG) «900108 178 MOVB § SHBS$B-PORT T(R4) .GSD$B_CREATPORT(R8)- -SET CREATOR PROCESSOR PORT # 
50 a6 «615 AG) «090 «O01DD-s77 MOVB SHBSB PORT(R4) | GSDSB LOCK(R6)  ;SET # OF PORT HOLDING GSD LOCK 
1E2 780 ASSUME SS$_NORMAL LT <*x1005 
50 01 OA OED 781 MOVZBL pees. NORAAL RO ;REPORT SUCCESSFUL ALLOCATION 
6 BA IE f : 50$: POPR #>M<R1,R2,R5> SRESTORE REGISTERS 
168 784 
He 785 NO_FREE_GSD 
15 19 168 7 6 MMGSFREEGSD :FREE ABANDONED GSD'S AND PAGES 
89 50 €8 O1FA 7 BLBS [BR IF RESOURCES WERE FREED 
1ED 788 ASSUME S$S$_GSDFULL LT <*Xx100> 
50 CC ar 9A O1ED 789 MOVZBL wsss_ GSDFULL,RO ;REPORT NO GSD TO BE ALLOCATED 
; 11 £90 BRB [GO RETURN QUOTA ALLOCATED 
1F3 792 NO_QUOTA: 
50 O3AC 8F 3 i 38 " MOVZWL #SS$_EXPORTQUOTA,RO ;REPORT NO QUOTA AVAILABLE 
3c A542 01.58 «(O1FB «= 794 60S:  ADAW! #1,SAD$W_GSDQUOTA(RS)CR2] [RETURN QUOTA ALLOCATED 
£6 11 OD 795 RB 50$ SRETURN ERROR CODE TO CALLER 
1FF 796 .DSABL LSB 
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ED MEMORY GLOBAL mitt 7 34:17588 SYS.SRCISHMGSDRTN.MAR; 1 = (B) 
» -SBTTL FREEGSD - FREE LOST SHARED MEMORY GLOBAL SECTION DESCRIPTORS 


p++ 
; FUNCTIONAL DESCRIPTION: 


— 
4d 
wren 


SHMGSDORTN = 6LOB 
vous000 FREEG 


wn 
zo 


THIS ROUTINE SCANS THE GLOBAL SECTION DESCRIPTOR BLOCKS IN THE 
TABLE OF GSD'S IN A SPECIFIC SHARED MEMORY. IT FREES ANY BLOCKS 
THAT WERE CREATED BY A PROCESSOR THAT HAS BEEN REBOOTED AND ARE 
NO LONGER ACCESSED BY ANY PROCESSOR. 


CALLING SEQUENCE: 

BSBW MMGSFREEGSD 
INPUT PARAMETERS: 

RS = ADDRESS OF THE § 
IMPLICIT INPUTS: 


HARED MEMORY CONTROL BLOCK 
HARED MEMORY COMMON DATA PAGE 


THE TABLE OF GLOBAL SECTION DESCRIPTORS IN SHARED MEMORY HAS BEEN 
INITIALIZED. THE CONSTANT FIELDS IN THESE DESCRIPTORS ARE ALREADY 
NITIALIZED. THE SHARED MEMORY CONTROL BLOCK AND COMMON DATA 
PAGE HAVE BEEN INITIALIZED BY CONNECTING TO THE SHARED MEMORY. 


OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

RO = RETURN STATUS CODE 

5 A tgaite WERE MADE AVAILABLE 

SIDE EFFECTS: 


GSD'S MAY BE MADE AVAILABLE. THE FREE PAGE BITMAP IS UPDATED. 


POPSPOPOPOPONOD) 2 9 9 hh) 8 8) CO 
a er TT mS tas ns i es i kk i nD De De Dene ns Bs Doe Done ees ns De Dee Dns Bes Ds Dn Bes ns De De Pes ns Dens De Bs 
Se eae de es i i Be ee i De Bs Bn i De De Bs i Di De sD Be se Ds Bs i es De Bs ts De es ss Be Bs i ns ns Bs i De Bs 


SOOOSOOCOOSOOOOOSOOSOOCOOCOCOOOCOOCOOOSOCOOOCOSCOOOOOOOOCOOOOOOOOOOOOOOOO 


r R1,R2,R3 ARE DESTROYED. 
r oo 
44 MMGSFREEGSD:: 
4 . ENABLE L368 
36 DD 4 PUSHL R sSAVE REGISTERS 
E D4 4 CLRL =(SP) sANTICIPATE FINDING NOTHING 
56 55 O4A 1 4 ADOL3 SHO ot -BSDETR IRE} «RG RO sADR OF FIRST GSD 
5118 42 C 4 MOVZWL SURSU_SSORAR IR »,R1 3GET # OF GSD'S IN TABLE 
1 BRB BEGIN GSD SCAN 
4A 66 ? E1 10$: BBC oe2R ey VALID mitt GSDFL(R6) 608 :BR_IF GSD 1S NOT IN USE 
46 66 50 BBS #GSD$V-LOCKEO GSD f GSDFL (ROS ; 7BR_ IF GSD BEING MODIFIED 
42 66 2 3 : BBC rt fe tad DELPEND ,GSDSC_GSDFL(R6S ,60$ ;BR IF DELETE NOT PENDING 
52 A6 5 TSTB GSD B_CREATPORT (R6) sNON-EXISTENT CREATOR? 


Peon 
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a .SBTTL FINDISTGSD = FIND THE FIRST GLOBAL SECTION TO SEARCH 
: FUNCTIONAL DESCRIPTION: 


SHMGSDRTN R 
VO4=000 


xm 
ma 
tee 
-—vo 


22 

oo 
i=) 

—_—m 


THIS ROUTINE TAKES AN INPUT STRING, BREAKS IT INTO SHARED MEMORY 
AND GLOBAL SECTION NAMES WITH THE APPROPRIATE TRANSLATION, AND 
RETURNS THE ADDRESS OF THE FIRST GLOBAL SECTION IN THE SEARCH PATH. 


CALLING SEQUENCE: 
BSBW MMGSF INDISTGSD 
INPUT PARAMETERS: 


WOOO OO ODO GOCOCSODOCDCDCDOD “Te 


MEW "OC OONOULS UM" =O 


oO 
oO 
> 
Bete Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Ge Se Se Se Se Ge Sse Ge te Se 


= SYSTEM OR GROUP GLOBAL INDICATOR (1=SYSTEM, 0=GROUP) 
R10) = SIZE OF SHARED MEMORY NAME (0 IF NO SH MEM NAME SPECIFIED) 
3 4tR10) ~ ADDRESS OF ASCIC SHARED MEMORY NAME 
4 IMPLICIT INPUTS: 
00 NONE 


OUTPUT PARAMETERS: 


IF A SHARED 1 IS BEING SEARCHED 
R4 = ADR OF SHARED MEMORY CONTROL BLOCK 
RS = ADR OF Oo MEMORY se DATA PAGE 
R6 = ADR OF FIRST re oe 3 IF THERE IS NONE 
IF LOCAL RERORY'18 Fs wi oy SEARC 


LAVSAVSSSHOHOGO GODS GDD OOD ODD DOD DODO ODO DOOD OOD ODDO DODD OD 


909 OCAL MEMORY isp LISTHEAD 
3i9 R6 - ADR OF FIRST LOCAL MEMORY GSD FROM LISTHEAD 
aig IMPLICIT OUTPUTS: 
914 NONE 
915 
318 COMPLETION CODES: 
918 SS$_NORMAL = SUCCESS RETURN CODE 
843 SSS$"SHMNOTCNCT = SHARED MEMORY NOT CONNECTED 
921 ; SIDE EFFECTS: 
: g NONE 
& 

3 5 te. 
9 5 MMGSF INDISTGSD:: 

¢6 19 9 3 BSBB MMGSF INDSHB GET GS AND SHMEM NAMES 

22 E 9 BLBC RO,208 7BR ON ERROR FINDING SH MEM 
73 13 3 ? seek as ;WAS . MEM CONTROL BLK FOUND? 
54 0° GF46 9 § MOVAQ 5 ERESEL GSOGRPFL ERG] .RA 3GET LISTHEAD FOR LOCAL MEM 
54 9 MOVL O FIND FIRST GSD 
0 "8 i : i38 MMGSGE TNXTGSD EGET ADR OF FIRST LOCAL MEM GSD 
56 (555) (04 C1 6 10$: ADDL3 SHDSL_GSDPTR(RS) .R5,R6 :GET ADR OF FIRST SH MEM GSD 


SHMGSDRTN 
vous000 


MMGSVALIDATEGSD 


JSB 


16 


00000098 * EF 
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SHMGSDRTN = GLOBAL SECTION DESCRIPTOR ROUTINES FOR 16-SEP-1984 01:14: AX/VMS Macro v04-00 Pa SH 
v04= FINDSHB = FIND SPEEFiC SHARED MEMORY CO mise 7 84:15:38 Heys. SRCJSHMGSDRTN.MAR; 1 ed (8) v04 

9 4e .SBTTL FINDSHB = FIND SPECIFIC SHARED MEMORY CONTROL BLOCK 
: 4d : FUNCTIONAL DESCRIPTION: 
9 46 ; THIS ROUTINE SEARCHED THE SHARED MEMORY CONTROL BLOCK LIST FOR 
9 47 : A SPECIFIC SHARED MEMORY. IF FOUND, THE ADDRESSES FOR THE CONTROL 
3 48 BLOCK AND THE COMMON DATA PAGE FOR Peat SHARED MEMORY ARE RETURNED. 
3 320 : CALLING SEQUENCE: 
9 3 : BSBW MMGSFINDSHB 
: 54 : INPUT PARAMETERS: 
9 936 : (R10) = SIZE OF SHARED MEMORY NAME (0 IF NO SH MEM NAME SPECIFIED) 
; 937 : 4(R10) = ADDRESS OF ASCIC SHARED MEMORY NAME 

0293 959 : IMPLICIT INPUTS: 

0293 960: 

: 3 361 : NONE 

0 3 $68 + OUTPUT PARAMETERS: 

; 963 : R4 = CONTAINS THE ADR OF THE SHARED MEMORY CONTROL BLOCK OR 

6 93 967: RS = CONTAINS THE ADR OF THE COMMON DATA PAGE FOR THE SHARED 

‘ 3 368 : MEMORY IF R4 IS NOT ZERO, OTHERWISE JUNK 

0 3 970 : IMPLICIT OUTPUTS: 

6 3 37¢ 3 NONE 

; 74 : COMPLETION CODES: 
9 976 : SS$_NORMAL = SUCCESS RETURN CODE 

0 3 37 3 SS$~SHMNOTCNCT - SHARED MSMORY NOT CONNECTED 
; $75 : SIDE EFFECTS: 
93 981: NONE 
9 oa8 | 
ie} a 
93 985 MMGSFINDSHB: : 

0 BB 0293 9 6 PUSHR ener R2,R3> ;SAVE REGISTERS 
93 9 ASSUME NORMAL LT <*x100> 
7E 01 9A 0295 9 : MOVZBL Asse" NORMAL .~ (SP) ;ASSUME SUCCESS 
6A D3 38 3 TST (R10 :1S SH SHARED MEM NAME SPECIFIED? 
54 00000000'GF 0 i $31 NOV. “ SEXESGL_ SHBLIST,R4 GET veARST SH ER CONTROL BLK 
0c 0B AS =«00)—s«ET.—s«OO2A 398 10$: BBC #3hesv CONNECT “snese FLAGS(R4), 2ie".8 BR ON MEMORY NOT CONNECTED 
04 Ab AA 994 MOVL L_BATAPAGE (R4) ,R5 :GEt COMMON DATA PAGE A 
20 aS) 04 BA i : AE x cHPCS n sEECRIOD GE (Rs _NAME (RS) EAS HAN shan THE SARE 
4 B 97 20$ MOVL HBSL_LINK(R4) ,R4 T NEXT SHB 
. EA } 88 33 . BNEG ibe : 'G0 TRY TO MATCH SH MEM NAME 


SS co 


AX/VMS Macro V04-00 


SEp-1986 O3:47:38 | 


SHMNOTCNCT_LT _<*x10000> 
_SHMNOTCNCT, (SP) 


mf 


> > 


SHMGSDRTN 
04000 


SYS. SRCJSHMGSDRTN.MAR; 1 


$ 
#*M<R1,R2,R3> 


Re 
RO 


ASSUME SS$ 
MOVZWL  # 


SHMGSDRTN 
V04=000 = 


~> 
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* «SBTTL GETNXT/VALIDATEGSD = GET NEXT VALID GLOBAL SECTION DESCRIPTOR 
FUNCTIONAL DESCRIPTION: 


rhe 


_ 
pa 
oS 
o 
> 
= 
ao 
nw r 
oO 
~< 
a 
“a 


i 
nee Pac ee NAME DESCRIPTOR COUNT T 
END OF THE GSD LIST IN LOCAL MEMORY WAS REA 
NOW BING EXTENDED INTO THE SHARED MEMORIES. 


E SECOND ENTRY POINT, te ap lord Lid 5 IS CALLED WHEN " FIRST | 
D HAS BEEN LOA IN u *, Sane’ T ORY GSD hs att — 


oMwMxzt YET Z2IEVITITT 


VALIDATE THAT THE GSD IS NO 

VALID GSD THEN THE ROUTINE NPROCEEDS TO FIND THE FIRST VALID 
GSD IN THE SHARED MEMORY TABLE JUST AS DESCRIBED ABOVE. 

CALLING SEQUENCE: 


BSBW MMGS$GETNXTGSD 
BSBW MMGSVAL IDATEGSD 


INPUT PARAMETERS: 


>HI -H 


WITH THIS SCAN 

TOR FOR ey MEMORY NAME 
F NO SHARED MEMORY NAME SP TELE 

F LOCAL MEMORY SEARCH HAS EXTENDED INTO 
SHARED MEMORY. 


IF veugomy * ws 
R OF SHARED MEMORY CONTROL BLOCK 
Rg . ADR OF SHARED MEMORY COMMON DATA PAGE 
IF LOCAL MEMORY SEARCH 
R4 = ADR OF LOCAL MEMORY GSD LISTHEAD 


R10 = ADR rt ST 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
R6 - ADR OF NEXT SEQUENTIAL GSD OR ZERO IF NO NEXT GSD 
IMPLICIT OUTPUTS: 
IF LOCAL MEMORY SEARCH EXTENDS INTO SHARED MEMORY: 
R4 - ADR OF SHARED MEMORY CONTROL BLOCK 


R5_= ADR OF SHARED MEMORY COMMON DATA PAGE 
ftR10) - SHARED MEMORY NAME SIZE IS SET TO -1 


PDA D AD AA AAS FE EE EB EE BANA AAA AA IOPOPOPOPONIPOPIFINI SSS SIO St 
PWR OODNAUL WR OO ODNAUE WN OOO NAUEWN —OUONOULWN—OOMON MO 
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me ec ed ed ed ed ed ed dd ed dd dd dd dd 8 8d 3 8 8 3 = 2 om 
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a 
DESCRIPTOR ROUTINE 
D- N ID GL -SEP- SYS.SRCJSHMGSDRTN.MAR; 1 1) vO 


SHMGSDRTN - G I 
vou-000 GET GET NEXT VAL 


COMPLETION CODES: 
NONE 

SIDE EFFECTS: 
NONE 


Be Ge Ge Ge Se Ge Ge Ge Ge Se 


-- 
RRR A EERE RARE REA A AEA AA RARER AARAAAAAERARAAATEER RAAT 
keekeeeereeeee THE FOLLOWING CODE MUST BE RESIDENT *eeeeeneeencereeene 

-PSECT SMMGCOD 


° 
SF RRRRERAAR AAA A AREER AERA AEAAARAAAREEAAAAAEARAEEE 


SHH HHH QQ QQ QO OPINPIPIPIPIMPIPININIPINININININ “SP 


PPP PF OOOO OOVOODODOODNNAOOOOOOOOOOOoOOoO <r 


PF WVUIMVOMO OO PS CCC 0900 Co CD CO CD COCO CD CD CO CO CD CO CD CD OD CD CD 


CT10 
DATE 
1064 
5 
1969 
1 i 
1 
1 
195 
1998 
1074 
HE 
Hi 
HH 
? 
10 5 .ENABL LSB 
1084 MMGSVALIDATEGSD:: 
1085 PUSHR #*M<RO,R1> ;REMEMBER REGISTER 
: BRB 15$ :GO VALIDATE GSD "IN HAND’ 
8 8 MMGSGETNXTGSD:: 
03 8B 1089 PUSHR #°mcRO,R1> : REMEMBER REGISTER 
6A OD 1090 TSTL (R10) :1$ THIS A SHARED MEM SEARCH? 
28 («12 1091 BNE ‘BR IF SEARCHING SHARED MEMORY 
56 © 66~—OD0 1 36 MOVL GSDSL _GSDFL(R6) ,R6 :GET NEXT LOCAL MEMORY GSD 
56 O54SC«O 109 CMPL R6~ :1§ THIS BACK TO ET OT MEAD? 
5D 3612 «(00AB «(1094 BNEQ og” :NO, BR TO RETURN NEXT GSD 
M188 
aM 1997 t DEFAULT SEARCH OVERFLOW FROM LOCAL MEMORY INTO SHARED MEMORY. 
54 00000000'GF 09 AA 1999 : MOVL  § G*EXESGL_SHBLIST,R4 GET PTR TO SH MEM CONTROL BLK 
13 0081 1100 10$ BEQL 608 N NO SHARED MEMORY 
4D 08 AG 600—sé#?T 085 1101 BBC #SHBSV_ CONNECT SHESB. FLAGS(R4), obs: BR IF SH MEM NOT CONNECTED 
55 04 a4 00 11 : MOVL §§ SHBSL_BATAPAGE(R4),R AD ATA PAGE 
A 01 ce ¢ 11 NEG f. RT ) SINDICATE DEFAULT SH MEM SEARCH 
56 55 04 AS g F 1104 L_GSDPTR(RS) ,R5,R6 :GET FIRST GSD ADR 
0 08 a6 3C 00C6 1105 15S: ROVzuL at SIZE(R6) »RO [GET SIZE OF SHMEM GSD 
0D 11 i 1 6 :GO CHECK VALIDITY OF GSD 
CA 1108 ; 
CA 11 Si ; FIND NEXT SHARED MEMORY GSD IN TABL E. SHARED MEMORY GSD'S ARE CONTAINED 
$f 1119 3; IN A TABLE AND ARE NOT LINKED VIA FORWARD AND BACKWARD LINKS. 
50 01 9A OOCA 111 20$: MOVZBL : ONE REF COUNT FOR A LOCK 
FFA6 30 CD 111 BSBW Angee DECSHMREF SRELEASE THE PREVIOUS GSD LOCK 
50 OBA ¢ DO 1114 MOVZWL G Ds. SIZE (R6),RO [GET SIZE OF SHMEM GSD 
56 CS ¢ D4 1115 ADDL2 R :POINT TO NEXT GSD 
51 18 A € 0007 1116 308 MOVZWL sH63u _GSDMAX(R5S) RI [GET MAX # GSD'S IN TABLE 
51 3 4 00DB 111 MULL RO. SFIND SIZE OF GSD TABLE 
1 €6 D 1118 ADDL R [ADD IN BASE VA 
51° O04 A ‘ €1 111 ADDL SHGSL_GSDPTRCRS) 1 [COMPUTE ADR OF END OF TABLE 
0 1 O00€5 1120 RB 0$ [SKIP OFFSETING TO NEXT GSD 
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SD = GET NEXT VAL 


DESCRIPTOR ROU 


vad $i 
v04-000 


oo 7.) 

on a 

w 
z xu 
ae ore 
a = zoom 

ww au eM aw 
oo vo WY ofr 
~-oo gO ” <« wo 
= ww 4 a) zaa> 
w * Y& 2&2 OMaerer 
$9se< oa#oauH4 4 w2Zze 
zwa<e ” WMO YOwmoao 
OOrswec OAc © _— wr 
o oo w&eur 
wreOoF-u O44 CuxwW- Ea 
zZzeunw <= ats Sey itt ee 
owe — wre WEWZwWoOs 
2 azaac2uw2a2 = aca @® 
= ” od orn =z 

ou 


G 
G 
P 
8 
0 

;L0 
P 
B 
I 
R 
A 


_SIZE(R6) ,RO 
V_VALID,.GSDSL_GSDFL(R6),70$ ; 
ECSHMREF 


NCSHMREF 
SL_LINK(R4) ,R4 
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‘ -SBTTL GETGSNAM = GET GLOBAL SECTION NAME AND SHARED MEMORY NAME 
FUNCTIONAL DESCRIPTION: 
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CA E A GLOBAL 
STRING IS SUFFIXED WITH '' aa tan U UNDERSCORE FOLLOWED 
SUFFIX IS E STRING IS SUBMITT 


no ~<oO 


ON HARE 
; THE SUFFIX IS APPENDED ONTO THE RESULTANT GLOBAL SECTION NAME. 


CALLING SEQUENCE: 
BSBw MMGSGETGSNAM 
INPUT PARAMETERS: 
R9 = ADR OF STRING 
R10 = ADR OF STRING 
R11 = ADR OF STRING 
IMPLICIT INPUTS: 
THE INPUT STRING DESCRIPTOR POINTS TO THE STRING TO BE TRANSLATED. 
THE OUTPUT STRING DESCRIPTORS ARE SET TO DESCRIBE THE SIZE AND 
ADDRESS OF THE OUTPUT BUFFERS. 
OUTPUT PARAMETERS: 
RO CONTAINS THE STATUS CODE FOR THE TRANSLATION. 


IMPLICIT OUTPUTS: 


D FOR INPUT STRING FROM USER 


R_IN 
4 a ed SHARED MEMORY NAME 


ESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR ETURNED GLOBAL SECTION NAME 


THE SHARED MEMORY AND GLOBAL SECTION NAMES ARE ENTERED IN THE 
bts DESCRIBED BY THE INPUT STRING DESCRIPTORS. THE DESCRIPTORS 
ARE UPDATED. IF AN ERROR CODE IS RETURNED, THE DESCRIPTORS ARE 


NOT VALID. 
COMPLETION CODES: 
SS$_NORMAL = SUCCESSFUL COMPLETION 
SSS_IVLOGNAM = NAME TOO LARGE FOR USER BUFFER 
SSS$_TOOMANYLNAM = TOO MANY LOGICAL NAME TRANSLATIONS 
SIDE EFFECTS: 


NONE 


OOOCCOCOCOCOCOCOOCOOOCOCSCOSOOOOOOOOOOOOOCOOOOOOOCOOOOO 2 


Sete Se Se Se Ge Ge Ge Be Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Se Fe Se Ge Ge 


RRARAAAAAAA AAA AAA AAA ATTA AAA AAA AAA AAA AAA AA AT AA AAA AAA EAA AA AAA eee 
eeeeeeeeereeereere THE FOLLOWING CODE MAY BE PAGED teeeeearareneereeer 
-PSECT YSEXEPAGED 
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H 13 16: /VMS Macro V04-00 Page 
cee gtah SEGLION DESCRIETOR ROUTINES FOR 16-SEP-1986 01:14:42 JAX/VES Bacco VO4-00 aE 
evi + GETGSNAM = GET GLOBAL SECTION NAME 
C8 4] “8 ; GISTERS 
ag we HEE HE MBE one BL Malt SUS 
a nan Rovewe (R9), (SP) SET ADR OF INPUT NAME. STR DSC 
Be 1508 MOVL, SPR GET STR SIZE MINUS SUFFIX 
23 Dd 08 : 4 SUBL3 fag nr? oe :BR IF STRING HAS SUFFIX 
=n 18 0909 1808 ADDL2 4 RO) RO TS THis A SUFFIX? 
ge ey Sk ashe she CMPB#*A/_/, (RO) ;BR_ON NO 
80 F BF } OF NEQ 108 sSIZE OF SUFFIX "9" 
4 FS Bovis. Fan) 1S CHARACTER LESS THAN 
TOO) HT REE TRIG sac RE alana rear PE DUARTE Ma AMERE ELS or 
ey ee a ee mae ataeth © 
SOBGT RE 
Fa) FS Bers isle PUSHL (RO) ;SUBTRACT OFF THE SUFFIX 
0 ce rt isi? SUBL2 #4, (RO) G0 TRANSLATE NAME 
.€ FQ 121 ; TE NO SUFFIX 
ani Rie Bie HAEAOEA SHZE Of Og gurren 
dD 09 1529 “8 Bk ae HGS GSDTRNLOG SBR IP-ERR TRANSLATING. NAME 
5 3 \$st BLBC —- RO, 508 WAS THERE A SUFFIX? 
i AE DS 0307 1 : Pit gtsP) BR IF NONE TO APPEND 
A 43 Oh 1993 RDDLS #4 (RIT) -RI {TS BUFFER TOO SMALL FOR SUFFIX? 
ets i B1 0319 1998 CPL SP) + RI 1B Nok Son sure ix 
ee OHS | ° ADDLS (R11) .4(R11) ,R1 {PUT SUFFIX ON-END OF STRING 
51 046 AB 68 C1 0315 1 MOVL (SP)+#,(R1) ‘B NO SUFFIX 
oe BRE He BR Be ie in eats & Sut 
OL e A 
e 6©CO OSTE 1230 AD ; #4, (R11) ZCLEAN STR DSC_OFF STACK 
68 04 ED 0398 4932 30s: ADDES. «#cdsBy SP TRESTORE REGISTERS 
35 2 ge c 8 1 § POPR #*M<R1,RI> +RETURN 
oo 05 Cisse ASSUME SS$_IVLOGNAM LT <*x10000> REPORT BUFFER TOO SMALL 
D 1336 408: ROVZUL #eeS YVLOGNAMCRO teat 
7018s EOS O8Se 1987 ie elt CLEAN SUFFIX AND CNT OFF 
B LO 0836 1939 50S: ABBL2.B<u#2>, SP iSGIN COMMON CODE 
me Pk Sf 0339. 1320 BRB «308 
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V04= GSDIRNLOG = GLOBAL SECTION LOGICAL NAME ‘SaSEP=19BG Ob:47:$6 USYS SRCISHMGSDRTN. MAR; 1 salt | 
“SBTTL GSDTRNLOG - GLOBAL SECTION LOGICAL NAME TRANSLATION 
-SBITL MBXTRNLOG = MAILBOX LOGICAL NAME TRANSLATION 
~SBTTL CEFTRNLOG = COMMON EVENT FLAG CLUSTER LOGICAL NAME TRANSLATION 
+ 
FUNCTIONAL DESCRIPTION: 
MMGSGSDTRNLOG = TRANSLATE LOGICAL NAMES FOR GLOBAL SECTIONS. 
MMGSMBXTRNLOG = TRANSLATE LOGICAL NAMES FOR MAILBOXES. 
MMGSCEFTRNLOG = TRANSLATE LOGICAL NAMES FOR COMMON EVENT FLAG CLUSTERS. 
THE ONLY DIFFERENCE BETWEEN THESE THREE TRANSLATION ROUTINES I$ THE PREFIX 
OTHE NAME STRING BEFORE EACH ITERATIVE TRANSLATION. THE PREFIX FOR 
SECTIONS 1S “GBLS$', FOR MAILBOXES IT 1§ “MOXS"™ AND’ FOR COMMON EVENT 


GLOBAL f 
FLAG CLUSTERS IT 1S “CEFS”. 
EACH ROUTINE IS CAPABLE OF ITERATIVELY TRANSLATING NAME STRINGS FOR BOTH 

SHARED AND LOCAL MEMORY OBJECTS. SHARED MEMORY OBJECTS HAVE THE FOLLOWING 


SHARED-MEMORY=NAME : OBJEC T-NAME 


AS SOON AS A COLON IS ENCOUNTERED WITHIN ( AND NOT AT THE END OF ) THE CURRENT 
INPUT STRING THE OBJECT IS ASSUMED TO BE LOCATED IN SHARED MEMORY. ITERATIVE 
NAME STRING TRANSLATION FOR SHARED MEMORY OBJECTS PROCEEDS AS FOLLOWS: 

J. THE CURRENT INPUT STRING IS_ SEARCHED FOR A COLON. 

2. EVERYTHING TO THE RIGHT OF THE COLON IS PLACED IN THE GLOBAL SECTION 
MAILBOX. 7 COMMON EVENT. FLAG CLUSTER NAME BUFFER IN FRONT OF WHATEVER STRING 
IS ALREADY PRESENT IN THE BUFFER. 

3. EVERVINING TO THE LEFT OF THE COLON ( OR THE ENTIRE CURRENT INPUT STRING 
IE THERE IS NO COLON ) BECOMES THE CURRENT NAME STRING. 

4. IF THE CURRENT NAME STRING CONTAINS A LEADING UNDERSCORE THEN THE 
UNDERSCORE IS STRIPPED FROM THE CURRENT NAME STRING, ITERATIVE LOGICAL 
NAME TRANSLATION TERMINATES, AND THE CURRENT NAME STRING BECOMES THE SHARED 
MEMORY NAME. GO TO STEP 9. 

5. 1F THE CURRENT NAME STRING IS ITSELF THE RESULTANT OF, A LOGICAL, NAM 
TRANSLATION THEN IT IS CHECKED FOR POSSESSION OF THE “TERMINAL ATTRIBUTE. 
IF THE CURRENT TRANSLATION IS MARKED “TERMINAL THEN ITERATIVE LOGICAL NAME 
TRANSLATION TERMINATES, AND THE CURRENT NAME STRING BECOMES THE SHARED 
MEMORY NAME. GO TO STEP 9. sans ok epeait uaeel 

6. THE CURRENT NAME STRING IS PREFIXED WITH "GBLS" / “MBXS'' / “'CEFS 
SUBMITTED FOR LOGICAL NAME TRANSLATION. AND THE RESULTANT. STRING BECOMES 
THE CURRENT INPUT STRING, 

7. THESE SIX STEPS ARE REPEATED UP TO LNMSC_MAXDEPTH TIMES. 

8. WHEN THE CURRENT LOGICAL NAME TRANSLATION FAILS, THE CURRENT NAME STRING, 
THE NAME THAT COULD NOT BE TRANSLATED, MINUS ITS UNIQUE OBJECT PREFIX, 
BECOMES THE SHARED MERORY NAME, 

9. THE OBJECT NAME IS THE STRING THAT HAD BEEN CONSTRUCTED DURING STEP 2 
OF THE ITERATIVE PROCESS FROM PIECES TO THE RIGHT OF COLONS. 


LOGICAL NAME TRANSLATION FOR OBJECTS IN LOCAL MEMORY PROCEEDS AS FOLLOWS: 


1. IF THE CURRENT NAME STRING CONTAINS A LEADING UNDERSCORE THEN THE 
pane teane IS STRIPPED FROM THE CURRENT NAME STRING AND ITERATIVE LOGICAL 
NAME TRANSLATION TERMINATES. GO TO STEP 5. 

2. IF THE CURRENT NAME STRING IS ITSELF THE RESULTANT OF A LOGICAL NANE 
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S CHECKED FOR POSSESSION OF THE “'‘TERMINAL" ATTRIBUTE. 

T ED. ‘TERMINAL’ THEN ITERATIVE LOGICAL NAME 
IXED WITH "'GBLS" / "MBXS'' / “'CEFS" 

SLATION, AND THE RESUE TANT STRING BECOMES 
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MORY OR OBJECT NAME ALT 


TRIN 
RANS 
REF I 
$'' / 'MBX$S'' / ""CEFS’’ IS pdt RETURNED TO 
RED ME HOUGH IT IS 
FOR LOGICAL NAME TRANSLATION. 


CALLING SEQUENCE: 
BSBW MMGSGSDTRNLOG 
BSBW MMGSMBXTRNLOG 
BSBW MMGSCEF TRNLOG 
INPUT PARAMETERS: 
R9 = ADDRESS OF STRING DESCRIPTO 
R10 - ADDRESS OF STRING DESCRIPTO 
R11 - ADDRESS OF STRING DESCRIPTO 
IMPLICIT INPUTS: 
THE INPUT STRING DESCRIPTOR POINTS TO THE ST 
THE OUTPUT STRING DESCRIPTORS ARE SET TO DES 
ADDRESS OF THE OUTPUT BUFFERS. 


OUTPUT PARAMETERS: 
NONE 


FOR INPUT STRING FROM USER 
FOR RETURNED SHARED MEMORY NAME 
FOR RETURNED OBJECT NAME 


TO BE Sgr 


RING 
CRIBE THE SIZE A 


I 
R 


IMPLICIT OUTPUTS: 


THE SHARED MEMORY AND OBJECT NAMES ARE EN 
BY THE INPUT STRING DESCRIPTORS. THE DES 
ERROR CODE IS RETURNED, THE DESCRIPTORS A 
IS NOT FOUND, THE UADPROPRIATE DESCRIPTOR’ 


COMPLETION CODES: 
SS$ ROR, 


SS$_NOPRIV 
SS$_IVLOGNAM 


“unworn 


-——Ouvme- 


TION OF THE ROUTINE 

ILEGE T0 oanas A LOGICAL NAME TABLE 
NAME OR SHARED MEMORY BUFFER IS TOO 
RESPONDIN 

ATIVELY TRANSLATES INTO A ZERO 


RA 
AL NAME TRANSLATION DEPTH EXCEEDED 


SS$_TOOMANYLNAM 


SIDE EFFECTS: 
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THIS ROUTINE ASSUMES THE UPPER WORD IN RETURN STRING DESCRIPTORS IS 0. 
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3 LOGICAL NAME TRANSLATION WORK AREA OFFSETS INTO KERNEL REQUEST PACKET 
é 3 AND LOGICAL NAME STORAGE. 


ASSUME LNMXST_XLATION+1,GE,4 


0 Hie thie NAME PRE 
4 CURRENT INPUT ST ne 


1 : COLON INDICATOR 

1 ‘BUFFER TO HOLD TRANSLATION BLOCKS 
13+LNMXS$T_XLATION+1 ; CURRENT INPUT STRING ADDRESS 
LWA_INPUT?LNMSC _NAMLEK NGTH 


Ix 
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ASSUME LWA_END,LE,512 


FILE_DEV nti sDESCRIPTOR OF LOGICAL NAME TABLE NAME 
7 LON FILE DEV SIZE 
-ADDRESS FILE_DE? 


FILE_DEV: LOGICAL NAME TABLE NAME BUFFER 
eASCII = /LNMSFILE DEV/ 
FILE_DEV_SIZE = . = FILE_BEV 
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8 
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) 
a338 
a 
4 
4 
Bsc 1384 
034F -ENABLE LSB 
4 4F $ MMGSCEFTRNLOG:: 
50 264464543 BF D0 4F MOVL #*A/CEFS/,RO ;SET INDICATOR TO USE "'CEFS’' 
10 11 0336 Hy BRB 10$ sSKIP OTHER PREFIXES 
0358 90 MMGSMBXTRNLOG:: 
50 24584240 BF 00 58 91 MOVL #*A/MBX$/,RO 7SET INDICATOR TO USE ‘'MBX$"' 
07.—Ss«‘11 9 7 3 BRB 10$ zSKIP OTHER PREFIXES 
8 61 94 MMGSGSDTRNLOG: : 
50 24404247 BF 00 0361 99 MOVL #*A/GBL$/,RO 3SET INDICATOR TO USE ‘'GBL$"' 
OFFE 8F 8B 3 ‘ 10$: PUSHR #*M<R1,R2,R3,R4,R5,R6,.R7,.RB,R9,R10,R11> SAVE REGISTERS 
036C 99 ; 
O36¢ 789 3 ALLOCATE AND INITIALIZE A KERNEL REQUEST PACKET TO PROVIDE A WORK AREA. 
6C 1402 ° 
57 09900000" GF 9E § 4 : MOVAB GPCTLSGL KRPFL,R7 RETRIEVE ADDRESS oF KRP QUEUE LISTHEAD 
04 B7 OOF 404 REMQUE @4(R7),R7 RETRIEVE KRP FR 
04 1C 7 405 BVC CONTINUE IF GOT 
‘a4 ; § BUG_ CHECK KRPEMPTY,FATAL OTHERWISE BUCCHECK 
67 50 00 7D $08 20$: MOVL RO, LWA_PREF IX(R7) STORE UNIQUE PREFIX IN WORD AREA 
30 69 3C Q $10 MOVZWL (R9),RO gRETRIEVE SIZE OF INPUT STRING FROM USER 
50 O00000FF 8F D1 41 CMPL  #LNMS$C_NAMLENGTH, RO [1S INPUT STRING OF V AL ID SIZE? 
1 A 16 BGEQU 258 [CONTINUE IF IT IS; urs 
0104 ¢ $1? BRW INVALID_LOGNAM SRETURN ERROR IF TAPUT FRING TOO LARGE 
F 1415 ASSUME LNMX$T_XLATION,LE,8 ¥ 
OD A? =—7C F 1416 25$: CLRQ LWA_XLATION(R75 ;CREATE "TRANSLATION BLOCK" FOR USER 
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SHMGSDRIN = GLOBAL SECTION DESCRIPTOR ROUTINES ys R 16-SEP-1984 01:14: AX/VMS Macro Vv04-00 Pa S| 
v04 CEFTRNLOG = COMMON EVENT FLAG CLUSTER -$ Pa 9b4 83:07:88 YSyS. SRCJSHMGSDRTN.MAR; 1 ~ day vl 
11 A? 1417 MOVB RO,LWA roeidaiell SUPPLIED INPUT STRING 
12 A? de B9 3 33 i 1418 movc3 ROsbe @4(R9) ,LWA_INPUT(R7) 
12 A? 9E C 125 MOVAB = LWA_INPUT(R7),= INITIALIZE CURRENT INPUT STRING 
08 A? 9F 1421 LWA_ INPUT ~DESE+4(R7) sDESCRIPTOR BUFFER ADDRESS 
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v04 CEFTRNLOG = COMMON EVENT FLAG CLUSTER L ety 83:15 8 S.SRCJSHMGSDRTN.MAR; 1 . 4) 
A 1052 
Al 1405 ; SETUP TO PERFORM THE ITERATIVE LOGICAL NAME TRANSLATIONS, AND THEN BEGIN BY 
Al 14 g 3 PROCESSING THE USER SUPPLIED INPUT STRING AS IF IT WERE fue RESULT OF A 
Al 1427 : LOGICAL NAME TRANSLATION. IN OTHER, WORDS, it ECK THE INPUT STRING FOR A COLON 
Al 14 g : INDICATIVE OF A SHARED MEMORY OBJECT HEN DETERMINE WHETHER OR NOT THE 
al 14 B ITERATIVE LOGICAL NAME TRANSLATIONS $uouLD BE TERMINATED. 
Al 1631: RG = ADDRESS OF BUFFER TO RECEIVE RESULTANT TRANSLATION BLOCKS 
Al 14 : : R7 = ADDRESS OF KRP 
Al 14633: RB - SIZE OF OBJECT NAME BUFFER REMAINING 
Al 1434; RQ. = ITERATIVE LOGICAL NAME TRANSLATION COUN TER 
Al 1435 : R10 = ADDRESS OF RETURNED SHARED NAME BUFFER DESCRIPTOR 
Al 14 $ 3 R11 = ADDRESS OF RETURNED OBJECT NAME BUFFER DESCRIPTOR 
Al 1438 ° 
56 0D A? 9E 0 Al 14 § MOVAB LWA_XLATION(R7),R6 ;RETRIEVE ADDRESS OF XLATION BUFFER 
58 D AS 1440 MOVL  (RIT),RB SRETRIEVE OBJECT NAME BUFFER SIZE 
68 D4 0 AB 1441 CLRL. (R11) [ZERO CURRENT OBJECT NAME SIZE 
04 8B 58 00 68 00 2C O3AA 144 MOVCS #0,(R11),#0,R8,€4(R11) :ZERO BUFFER (SOURCE SPEC IS MEANINGLESS) 
59 OA 00 0381 144 MOVL #LNMSC_MAXDEPTH,RO [MAXIMUM NUMBER TRANSLATION ITERATIONS 
A 11 03B4 1444 BRB CHECK_RLATION :GO CHECK USERS INPUT STRING FOR COLON 
0386 1446 AND WHETHER ITERATIONS SHOULD TERMINATE 
386 1447; 
0386 1448 : APPEND THE CURRENT NAME STRING TO THE OBJECT'S UNIQUE PREFIX AND THEN 
3B6 1449 : TRANSLATE THE RESULTING STRING UTILIZING A FAST INTERNAL INTERFACE. 
0386 1450 ; NOTE THAT THE ROUTINE LNMSSEARCH_ONE WILL ONLY RETURN THE TRANSLATION BLOCKS . 
0386 1451 ; FOR TRANSLATIONS WITH INDEXES OF 0; OTHERWISE, AN ERROR OF SS$_NOLOGNAM IS 
0386 1438 : RETURNED. THIS ROUTINE EXPECTS THE FOLLOWING REGISTERS AS INPOT: 
bape 1454 ; RO = SIZE OF NAME STRING TO BE TRANSLATED 
0386 1455 : R1 = ADDRESS OF N AME ASLRING TO BE TRANSLATED 
0386 1436 : R2 = SIZE OF TABLE N AME STRING 
0386 1457: R3 = ADDRESS OF TABLE NAME STRING 
0386 1458 : R4 = ADDRESS OF PCB 
0386 1459 : RS = HIGH-ORDER WORD 0; CASE-INSENSITIVE FLAG; ACCESS MODE OF TRANSLATION 
0386 1460 + R6 = ADDRESS OF BUFFER TO RECEIVE RESULTANT TRANSLATION BLOCKS 
0386 1468 : IF THE LOGICAL NAME TOGETHER WITH ITS PREFIX EXCEEDS THE MAXIMUM SIZE OF A 
0586 1663 : LOGICAL NAME THEN IMMEDIATELY TERMINATE THE ITERATIVE TRANSLATIONS. 
6 1465 ° 
5 1466 TRANSLATE EALOOP: LOOP TO PERFORM ITERATIVE TRANSL AT LONS 
04 ¢3 6 146 : SETUP DESCRIPTOR OF LOGICAL NAME T 
51 08 A7 1468 toh” INPUT pDESC#4(R7) R1 :BE TRANSLATED 
50 04 a7 04 C1 146 ADOL3 a, CwA AaINPU DESC(R7S,R 
QOOO0OFF 8F 9 D1 CO 1470 CMPL UNA C NARLENSTH :1S RESULTING NAME TOO LARGE? 
18 C7 (1471 BLEGU : SIF SO THEN TERMINATE TRANSLATIONS 
0094 3 C9 1478 BRW STOP_TRANSLATION 
61 67 DO O3CC 1474 278:  MOVL  LWA_PREFIX(R7),(R1) :PREFIX CURRENT INPUT STRING WITH 
CF 1475 SOBJECT'S UNIQUE PREFIX 
FFG SO ft 7D O3CF 1476 mMOVa = FIILE_DEV DESC gh? SLOGICAL NAME TABLE NAME DESCRIPTOR 
54 p0 DS 147 MOVL  aM#CTCS$GL7P pce RA TRETRIEVE PCB ADDRESS 
5 C DB 1478 MOVZWL #<1a8 + PSLS$C_USER>.RS :ALL TRANSLATIONS ARE DONE CASE 
£0 147 S INSENSITIVE AND FROM USER MODE 
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of! ee £9 14 BSBW = LNMSSEARCH_ONE ; TRANSLATE THE CURRENT NAME STRING 
E314 BLBS RO gHeCK x XCATION 760 CHECK TRA AN SLATION re ot SUCCESSFUL 
50 ore } £14 CMPW 6s: # S$ $_ NOLOGNAM, RO SIF FAILED ANSLATE CURRENT N 
: EB 14 BEQL STOP ehute ation + STRING GEN N TERA INATE TRANSL ATIONS” 
OOAB «31 «~O3ED 1484 BRW RETURN TOTHERWISE GO RETURN AN ERROR 
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SHMGSDRTN - GLOBAL SECTION DESCRIPTOR ROUTINES for R 16- 4 AX/VMS Macro V04-00 Pa 7 SHI 
viii tf CEFTRNLOG = COMMON EVENT FLAG CLUSTER -§ sats ri 83: 13: ¢g SYS.SR cj SHMGSDRIN. MAR; 1 - 4) VO 
Hie 
431 1535 : WHEN ONE OF THE FOLLOWING CONDITIONS IS MET, ITERATIVE LOGICAL NAME 
; ] § ; TRANSLATION IS TERMINATED WITHOUT ATTEMPTING TO PERFORM ANOTHER TRANSLATION. 
431 1 8 + 1. THE SIZE OF THE CURRENT RESULTANT STRING, AFTER REMOVAL OF THE CURRENT 
431 1 3 JECT NAME PIECE, IS ZERO. IN THIS CASE THERE IS NO SHARED MEMORY NAM 
431 1540 ; E RETURNED. {Ff THERE 1S ALSO NO OBJECT NAME TO BE RETURNED, THEN 
? ! 2] 3 RETURN AN ERROR STATUS. 
431 1 rk : 2. THE CURRENT RESULTANT STRING BEGINS WITH AN UNDERSCORE. REMOVE THE 
431 1544 ; UNDERSCORE.. IN THIS CASE THERE IS ALSO NO SHARED MEMORY NAME TO GE 
431 1362 : RETURNED. IF THERE IS ALSO NO OBJECT NAME TO BE RETURNED, THEN RETURN AN 
? ! 1208 3 ERROR STATUS. 
431 1548 ; 3. THE CURRENT RESULTANT TRANSLATION IS MARKED WITH THE TERMINAL ATTRIBUTE. 
O4 ! 1303 : iN THIS CASE RETURN AN OBJECT NAME, AND IF APPROPRIATE A SHARED MEMORY 
431 1551 : s 
0431 1226 3 1. MAXIMUM LEVEL OF ITE“ATION HAS BEEN REACHED. IN THIS CASE AN ERROR WILL 
be : 1327 3 BE RETURNED. 
431 1555 ; IF ONE OF THE ABOVE CONDITIONS IS NOT MET, THE REMAINING RESULTANT NAME STRING 
b2 ! 1328 + BECOMES THE CURRENT NAME STRING AND IS SUBJECTED TO FURTHER TRANSLATION. 
431 1558 ° 
04 A? D5 0431 1559 40S: TSTL LWA_INPUT_DESC(R7) ANY NAME AT ALL REMAINING? 
OF 13 0434 1560 BEQL 0$ :1F NOT THEN GO DETERMINE IF THERE IS 
a6 1361 ANY OBJECT NAME TO BE RETURNED 
12 A? «SF BF O91 ize 1308 CMPB #*A/_/, LWA_INPUT(R7) BRANCH IF CURRENT RESULTANT NAME STRING 
10 12 0438 1564 BNEQ 60$ ~ [DOESN'T BEGIN WITH AN UNDERSCORE 
08 A? 06 0430 1565 INCL LWA_INPUT_DESC+4(R7) ELSE REMOVE Ne FROM CURRENT RESULTANT 
04 A?) D7 0440 1566 DECL LWA- INPUT DESC(R7) NAME STRING AND TERMINATE TRANSLATION 
1B «1A dees 136? BGTRU STOP. TRANSLATION z1F THERE 1S SOMETHING LEFT 
6B 0 445 1569 50S: TSTL (R11) ANY OBJECT NAME TO BE RETURNED? 
4A 13 0447 1570 BEQL INVALID_LOGNAM tIF NOT THEN GO RETURN AN ERROR 
6A D4 0449 137) CLRL (R10) sELSE NO SHARED MEMORY NAME TO BE 
ay. 9 +78 1278 BRB TRANSLATION_DONE TRETURNED AND WE ARE DONE 
01 €0 0440 1574 60$: BBS #LNMXS$V_TERMINAL,- y1F THE CURRENT RESULTANT TRANSLATION 
44F 1575 LNMX$B_FLAGS+- 31S MARKED WITH THE TERMINAL ATTRIBUTE 
44F 1276 LWA XEATIONCR7) -= ;THEN STOP THE ITERATIVE TRANSLATIONS 
OE OD A7 ret ] ? STOP_TRANSLATION 
59 07 43 1358 DECL DECREMENT TRANSLATION ITERATION COUNT 
03 19 0454 1580 BLSS 65$ :GO0 RETURN ERROR IF EXCEEDED MAX DEPTH 
FFSD H $28 1? 1 BRW TRANSLATE_LOOP sELSE CONTINUE WITH CURRENT ITERATION 
50 0374 ef C 0459 1 ; 65$ MOVZ2WL #SS$_TOOMANYLNAM,RO s;MAXIMUM ITERATION DEPTH EXCEEDE 
8 11 O45€ 15 BRB RETURN :GO RETURN THE APPROPRIATE ERROR 


E 14 
SHMGSDRTN = GLOBAL SECTION DESCRIPTOR ROUTINES FOR 16-SEP-1 :42 VAX/VMS Macro V04-00 Pa 
rivet CEFTRNLOG - COMMON EVENT FLAG CLUSTER L g- EP- 71984 84:13 ‘68 YOYS SRCSHMGSDRTN MARS 1 - 3%) 
d68 1386 
460 1 : $ WHEN THE ITERATIVE LOGICAL NAME TRANSLATION OF THE USER SUPPLIED INPUT STRING 
460 1 ; TERMINATES THE LEFTOVER NAME STRING BECOMES THE SHARED MEMORY NAME RETURNED 
460 1 ; TO THE CALLER IF AN OBJECT NAME HAD BEEN CONSTRUCTED DURING THE ITERATIVE 
460 1 : LOGICAL NAME TRANSLATION PROCESS. OTHERWISE, THE LEFTOVER NAME STRING IS 
460 1591 : RETURNED TO THE CALLER AS THE OBJECT NAME, AND THERE IS NO SHARED MEMORY NAME 
460 1 36 : TO BE RETURNED. 
to 1804 ¢ 
460 1595 STOP_ TRANSLATION: ySTOP THE ITERATIVE TRANSLATIONS 
68 D5 460 1 36 TSTL = (R11) [DOES AN OBJECT NAME ALREADY EXIST? 
15 12 0462 1 BNEG 70$ SIF SO THEN LEFTOVER BECOMES THE 
464 38 :SHARED MEMORY NAME 
$ D4 ie 1600 CLRL = (R10) ;INDICATE NO SHARED MEMORY NAME 
B DD 04 6 1601 PUSHL R11 ‘SWITCH THE OBJECT AND SHARED MEMORY 
58 2A D0 46 160¢ MOVL R10,R11 ‘NAME POINTERS SO THAT THE LEFTOVER 
A 8EDO 0468 160 POPL R10 [GETS SAVED AS THE OBJECT NAM 
6A 58 00 46t 1604 MOVL RB, (R10) SRESTORE OBJECT NAME BUFFER SIZE TO 
4 1605 STHE SIZE FIELD OF ITS DESCRIPTOR 
OC A? 95 a¢71 1809 TSTB LWA_COLON(R7) :COLON SEEN IN LAST RESULTANT STRING? 
03 13 0474 1608 BEQL 0$ ‘BRANCH IF IT WASN'T; ELSE RETURN COLON 
04 A? 6 0476 1609 INCL _LWA_INPUT_DESC(R7) tAS PART OF OBJECT NAME STRING 
50 04 A7 DO 0479 1611 70$:  MOVL LWA_INPUT_DESC(R7),RO  ;SIZE OF STRING TO BE RETURNED 
6A 50 D1 047D 1618 CMPL _—RO, TR10) SDOES STRING SIZE EXCEED BUFFER SIZE? 
ui iA 4 9 1613 BGTR INVALID _LOGNAM SRETURN ERROR IF SO 
484 1615 abi INPUT T DESC+4(R7), - 
04 BA 6A 00 08 87 484 1616 (R10) ;MOVE NAME STRING ZERO FILLED 
6A 04 A7 00 4 A 1617 MOVL LWA. INPUTS _DESC(R7),(R10):STORE STRING'S LENGTH 
48E 1619 ; 
Oc8e 1620 : SETUP THE APPROPRIATE RETURN STATUS, AND RETURN TO THE CALLER AFTER 
04 : 1 t DEALLOCATING THE KRP BACK TO THE KRP LOOKASIDE LIST. 
48E 1623 - 
48E 1624 TRANSLATION DONE: ; TRANSLATIONS HAVE COMPLETED 
50 01 dO 04 : 1625 OVE #SS$_NORMAL,RO [SET APPROPRIATE STATUS 
05 «(11 ‘3 19 § BR B RETURN s;RETURN STATUS 
49 16 : INVALID_LOGNAM: ;REPORT AN INVALID LOGICAL NAME 
50° 0154 BF 3 49 16 ; MOVZWL #SS$_IVLOGNAM,RO SSET APPROPRIATE ERROR CODE 
56 00000000'GF 9€ 0498 1631 RETURN: MOVAB GecTLSGL KRPFL,R6 sRETRIEVE ADDRESS OF KRP QUEUE LISTHEAD 
0486 67 OF 49F 16 ; INSQUE a4 (R6) SINSERT KRP INTO LIST 
OFFE 8F BA ons 1634 POPR = #*M<R1,R2,R3,R4,R5,RO,R7,RB-RI-RIO.R11> ;RESTORE REGISTERS 
5 Q04A7 1635 RSB SRETURN STATUS 
4A8 1636 .DSABL LSB 
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-SBTTL MMGSREAD_GSD/MMGSWRITE_GSD = READ/WRITE SHARED MEM GBL SECTION 


ou 


* 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE READS THE PAGES OF 
SHARED MEMORY OR WRITES THE PAGE 


CALLING SEQUENCE: 


BSBW MMGSREAD_GSD 
BSBW MMGSWRITE_GSD 


INPUT PARAMETERS: 


Re 


A GLOBAL CREATED INTO 
S$ BACK TO 


ON DESCRIPTOR ADDRESS 
TUAL ADDRESS INTO WHICH SECTION IS MAPPED 


GSD ONLY) 
R3 AL ADDRESS INTO WHICH SECTION IS MAPPED 


4(SP) = RETURN STATUS CODE SO FAR FOR SCRMPSC SYSTEM SERVICE 
(MMGSREAD_GSD ONLY) 


IMPLICIT INPUTS: 


THE GSD IS FULLY INITIALIZED AS WELL THE SECTION TABLE ENTRY (IF 
THERE IS ONE). 


OUTPUT PARAMETERS: 

RO CONTAINS THE STATUS CODE FOR THE I/0 TRANSFER. 
IMPLICIT OUTPUTS: 

THE GLOBAL SECTION IS READ/WRITTEN. 
COMPLETION CODES: 


SS$_NORMAL = SU 
VARTOUS SYSTEM 


SIDE EFFECTS: 
NONE 


<n 


CCE 
SER 


Bete Se Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Sse Ge Se Ge Ge Ge Ge Ge Se Ge Se Ge 


MAXIO = MAXIMUM # PAGES IN ONE 1/0 


MMGSWRITE_GSD:: 
»ENABL 


1,R2,R3,R4,R5,R6,R7,R8,R9,RI1 TERS 
; NG WRITTEN 


“ND 
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SHMGSDRTN = GLOBAL SECTION DESCRIPTOR ROUTINES FOR 16-SEP-1984 01:14: AX/VMS Macro V04-00 Page 40 SH 
v04- MMGSREAD_GSD/MMGSWRITE_GSD = READ/WRITE ety 7 84:15:98 YOYS SRCTSUMGSDRTN MARS 1 . (Be) vo 
50 04 AF 09 481 1695 MOVL  4(SP),RO :GET RETURN CODE SO FAR 
0 £9 0485 1 6 BLBC =. RO 508 ier IF ERROR CREATING SECTION 
OFFE BF 88 488 1 PUSHR #*M<R1,R2,R3,R4,R5,R6,R7,RB,RO,RIO,R11> :SAVE REGISTERS 
7 p 48C 1 38 CLRL = R7 sINDICATE GS IS BEING READ 
58 4 OA BF 1699 5$: WOVZBL #GSD$C_PFNBASMAX R11 :SET COUNT OF PFN BASES IN GSD 
SA 56 0990 54 BF C1 O4C1 1 2 ADDL3 #GSDS$L-BASPFN1,R6,R10 :GET ADR OF 1ST PFN BASE IN G 
59 20 A6 3 E1 04€9 17 BC ase CSV DZRO,GSH$W.FLAGS(R6),100$ :BR IF SECTION MUST BE READ IN 
56 E8 Ace 17 3 BLBS R7,1008 :BR IF WRITING SECTION TO DISK 
4p1 1 4 : THE SECTION IS DEMAND-ZERO. INITIALIZE THE PAGES TO ALL ZEROS. 
401 7 $ ! R10 = ADDRESS OF NEXT PFN BASE IN GSD 
4p1 7 + R11 = NUMBER OF PFN BASES IN GSD 
57. $2 7D 0401 17 § OVQ R2,R7 :GET START AND END VA 
7E 9200 i 3¢ 60404 1710 MOVZWL #°X200,7 (SP) [SET VA INCREMENT 
7 (C3 0409 1711 SUBL3  R7,R8,-(SP) :GET # BYTES MAPPED 
06 18 0400 718 GEG s«6S ‘BR IF RANGE MAPPED FORWAR 
6c a CE O4DF 171 MNEGL (SP) (SP) SCONVERT TO POSITIVE BYTE COUNT 
D Ee 1714 OVL RB,R? ‘REVERSE STARTING ADR FOR MOVC 
6— 6€ F7 BF 78 O4E5 1715 6S: ASHL #9, (SP), (SP) [CONVERT FROM BYTE TO PAGE COUNT 
6E D6 O4EA 1716 INCL (SP5 SACTUAL # OF PAGES MAPPED 
4EC (171 ASSUME GSD$L_BASCNT1 EQ <GSDSL_BASPFN1 + 4> 
59 BA DO O4Ef 1718 10$:  MOVL (R10)FR ;NEXT PFN BASE IN GSD 
59 BA DO O4EF 1719 MOVL  (R10)+.R9 ‘NEXT BASE CNT IN GSD 
17 13 O4F2 1720 BEQL 25% :BR ON NO MORE PAGES TO INIT 
6€ 59 C2 O4F4 1721 SUBL -R9, (SP) [I$ THIS PIECE MAPPED? 
20 19 O4F7 17 Q BLSS §NOT_MAPPED :BR ON ERROR, NOT MAPPED 
67 0200 8F 00 66 2€ O4F9 1723 208:  MOVCS #0,TR6),#0,#*X200, (R7) :ZERO-FILL A PAG 
57 04 ar CO 0501 1724 ADDL2 4(§P),R? :GET VA OF NEXT PAGE TO INIT 
F159 F5 0505 1725 SOBGTR R9,20$ SREPEAT FOR EACH PAGE IN PIECE 
€1 58 OFS 208 17 6 SOBGTR R11,10$ SREPEAT FOR EACH PIECE OF GS 
SE 04 CO 0508 1727 25$:  ADDL2 4#4,§P [CLEAN OFF # PAGES MAPPED 
50 01 GA O5S0E 17 : $: WOVZBL #S5$_NORMAL,RO ‘REPORT SUCCESS 
SE 20 04)«=CCOs«0511—«s«17 $:  ADDL2 #4,S “CLEAN OFF INCREMENT 
OFFE 8F BA 0514 1730 40$: POPR #*M<R1,R2,R3,R4,R5,R6,R7,R8,R9,RIO,R11> ;RESTORE REGISTERS 
05 318 7 1 50$:  RSB 
19 17 § NOT_MAPPED: 
50 036C 8F 3¢ 0519 1734 MOVZWL #SS$_SHMGSNOTMAP,RO ;DZRO SECTION MUST BE MAPPED, TO 
38 AE 650)0«0DOsOOS1E =«1735 VL «RO, <T4#4>( SP) TERROR CODE TO RETURN TO CALLER 
SE 04 CO 0522 17 6 ADDL2 #4.SP [CLEAN OFF # PAGES MAPPED 
EA 11 ; 1 BRB 35§ TALLOW INIT. DURING CREATION 
7 1739; 
527 1740 : THE SECTION WAS NOT DEMAND-ZERO, THEREFORE IT MUST BE MAPPED TO A FILE. 
> 7 1741 : (PEN MAPPED SECTIONS ARE NEVER INITIALIZED AND THUS NEVER REACH THIS CODE.) 
7 1746 : THE PAGTS MUST BE READ FROM THE FILE INTO SHARED MEMORY BEFORE A STATUS 
3 f 1243 : CODE CAN BE RETURNED TO THE CALLER OF S$CRMPSC. 
557 1745 : 
527 1246 t FIRST GET THE NEEDED PARAMETERS FROM THE SECTION TABLE ENTRY. (ALL GLOBAL 
527 1747 : SECTIONS MAPPE A FILE, HAVE A SECTION TABLE ENTRY IN THE SYSTEM PROCESS 
; 7 1748 : HEADER.) THESE PARAMETERS INCLUDE THE WINDOW ADDRESS, VIRTUAL BLOCK NUMBER, 
f 124 : PAGE FAULT CLUSTER SIZE FOR THE SECTION. 
00000113'EF 16 3 ? 158 100$:  JSB MMGSF INDSHD :GET SHD AND SHB ADDRS 
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ION DESCRIPTOR ROUTINES FOR 16-SEP=1 14: AX/VMS Macro V04-00 Pa 
THELGSD = READ/URITE” ScSEPH]ORG Ooiarses fete eS Te eee Nf tO ast oe 52, 
BISL2 #<PTESC_ERKW ! PTESM_VALID>,R8 ;SET OWNER AND VALID IN PTE 
160$: MOVAB (RB)+ CRS :SET ONE PTE 
SOBGTR R11 leds SLOOP FOR SIZE OF TRANSFER 
BICL2 #<PTESC_ERKW ! PTESM_VALID>,R8 CLEAR OWNER AND VALID BITS 
FINALLY, INITIALIZE THE 1/0 REQUEST PACKET (IRP) ITSELF. A LOCATION ON 
THE STACK IS ALLOCATED TO HOLD THE 1/0 COMPLETION STATUS CODE. THE 1/0 
COMPLETION AST ROUTINE WILL MOVE THE STATUS CODE INTO THIS LOCATION AND 
DELETE THE IRP. 
POPR #2McRO RI LR > :GET WINDOW ADR, CNT & V 
PUSHR #*M<RO.R1.R2> [SAVE BYTE CNT & WINDOW 
CLRQ = =(SP) SINITIALIZE 1/0 RETURN STATUS 
MOVL SP, IRP$L_I0SB(R5) SSET ADR FOR RETURN STAT 
MOVAB B*SHMIODONE,IRPSL_ASTPRM(RS) | :SET AST ROUTINE ADR 
MOVB #PCBSB_PRIB(R4),IRP$B_PRI(R5) | SET PRIORITY FOR 1/0 
THE INPUTS FOR EXESBLDPKTGSR/EXESBLDPKTGSW ARE: 
R1 = NUMBER OF BYTES TO TRANSFER 
R2 = WINDOW ADDRESS 
R3 = SVAPTE 
R4 = bcp ADDRESS 
RS = IRP ADDRESS 
IT DESTROYS RO, R1, R2, R3, R4 AND RS. 
BLBC R7,185$ :BR IF READING SHM PAGES 
JSB G*EXESBLOPKTGSW GO BUILD & SUBMIT WRITE REQUEST 
BRB $ ‘JOIN COMMON CO 
185$:  JSB G*EXESBLDPKTGSR :G0 BUILD & SUBMIT READ REQUEST 


; NOW WaT ID COM 1/0 wisi! TO COMPLETE. THIS IS ACCOMPLISHED BY WAITING 


PLETION STATUS CODE TO BE SET BY THE a ROUTI a Py i ee E 
LEFT FOR THE WRONG REASON. THEREFORE, THE STATUS COD 


; ALSO BE E MUST BE 
CHECKED BEFORE WAITING AND UPON AWAKENING. THE WAIT STATE IS PAGE FAULT WAIT. 


; eeeeeee THERE IS A PROBLEM HERE. LOWERING IPL SO AS TO RECEIVE THE AST 
: weeeeee WILL ALLOW THE PROCESS CREATING THE SHM GS TO BE DELETED WHILE 
: weeeeee JT HOLDS AN UNFINISHED GSD. 
20s: PUSHL #0 SLOWER IPL TO RECEIVE AST'S 
95$: SETIPL SYNCHIPL SRAISE IPL TO SYNCH AND INSURE 
[THAT CODE IS FAULTED INTO MEM 
TSTL  4(SP) [CHECK IF 1/0 STATUS CODE IS SET 
BNEG $ [BR IF 1/0 REQUEST IS COMPLETE 
MOVAQ  G*SCH$GQ_PFWO,R2 [SET ADR OF PAGE FAULT WAIT QUE 
MOVL  G*SCHSGL~CURPCB,R4 'SET ADR OF CURRENT PROC CTL BLK 
JSB G* SCH HSWATTK [WAIT ON A KERNEL AST 
oad arnt ere 190$ [CHECK IF AST WAS FOR THIS 1/0 
wont :SET NEW PSL AND PC FROM STACK 
200$: 8SBB  REI_RTNI TRESTORE TO PSL BEFORE WAIT 
MOVL  (SPT+,RO :GET 1/0 COMPLETION CODE 
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SHMGSDRTN = GLOBAL SECTION DESCRIPTOR ROUTINES FOR 16-SEP-1984 AX/VMS Macro V04-00 Page 44 
rive tt MMGEREAD .@Sb/MMGSURI TE. GSD = READ/WRITE $7 a P=-1984 8}: 13 8 SYS. SRCIS HMGSDRTN.MAR; 1 9° (34) 
D 1923; 
rats 13 4 ; PLACING THE SYNCH IPL IN A LONGWORD AT THIS LOCATION WILL FORCE THE ABOVE 
66D 1925 : SETIPL INSTRUCTION TO FAULT EMORY ALL INSTRUCTIONS BETWEEN IT AND THIS 
66D 19 g $ LONGWORD. THIS IS NECESSARY BECAUSE THIS CODE RESIDES IN A PAGEABLE PSECT 
2p 13 : AND PAGE FAULTS CANNOT BE ALLOWED AT RAISED IPL. 
$60 19 § NEWIPL: 
00000008 660 19 0 eal .LONG IPL$_SYNCH :SYNCH IPL 
671 19 : ; ASSUME < <3008 = 270$> LE 512 ;GUARANTEE PAGE ADJACENCY 
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N DESCRIPTOR ROUTINES FOR 16-SEP=1984 01:14:42 VAX/VMS Macro v06-00 Page 45 
= FIND GSD WITHOUT LoGte S-SEp-1obe OS:aP ses Lee eS Teen e ens1 | P29 (43, 


-SBTTL MMGSFINDGSNOTRN = FIND GSD WITHOUT LOGICAL NAME TRANSLATION 


on 


= 
FUNCTIONAL DESCRIPTION: 


T GLOBAL 
NO FUR CAL NAME TRANSLA 
STARTING IN LOCAL MEMORY. 
CALLING SEQUENCE: 
BSBW MMGSF INDGSNOTRN 
INPUT PARAMETERS: 
R7 - tay ke OF A SCRATCH AREA CONTAINING THE ee ASCIC GLOBAL 
SECTION NAME FOLLOWED BY THE IDENT QUADWORD 
R9 = we Mert aoe bare BY USER 
R10 - 9 IF THE GSD WAS FOUND IN LOCAL MEMORY 
IF THE LOCAL MEMORY SEARCH EXTENDED INTO SHARED MEMORY TABLES 
>0 IF A SPECIFIC SHARED MEMORY NAME WAS SPECIFIED 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO - RETURN STATUS CODE 
a - GSD ADDRESS, IF FOUND 
0 IF THE GSD WAS FOUND IN LOCAL MEMORY 
-1 IF THE LOCAL MEMORY SEARCH EXTENDED INTO SHARED MEMORY TABLES 
>0 IF A SPECIFIC SHARED MEMORY NAME WAS SPECIFIED 
IMPLICIT OUTPUTS: 


THE PREVIOUS MODE IS SET TO THE CURRENT MODE TO ALLOW THE DESCRIPTORS 
AND BUFFERS WHICH ARE ON THE STACK TO BE PROBED. 


COMPLETION CODES: 
SS$_NORMAL = SUCCES OMPLETION 
SSS_NOSUCHSEC = NO LOBAL SECTION 
SSS~IVLOGNAM = INV CAL NAME 
SS$"ACCVIO = ACCESS 

SIDE EFFECTS: 


NONE 
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RED MEMORY SEARCH? 
EC MEM SEARCH 


ER AND THE IDENT 
NOW ON THE KERNEL 


RY TO MAKE THE 
OVIDED DATA ARE 


~~ wT 
~~ UP 


GE 


essay V PRVMOD, ,APSCS$S_PRVMOD, (SP) PREV MODE TO CUR MODE 


w°neR' R2,R3,R4,R5> 
#43, 1¢RP) 1(SP) 
1.7, (SP) 
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#°M<R1 nee a. R4,R5> 
_ROUTI 
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T 
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iF FORCES PREV MODE TO BE CUR MODE 


sSAVE_ REGISTERS 
;BUFFER FOR NEW NAME STRING 


SE 
EASE BUFFER MAND STR DESC 
TORE REGISTERS 

TRESTORE ORIGINAL PREVIOUS MODE 
;RETURN STATUS OF SEARCH 


:THIS WILL A oe A_NEW MODE 
:TO BE SET FROM THE STACK 
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SHMGSDRTN = GLOBAL SECTION DESCRIPTOR ROUTINES FOR Ig-SEP-1984 0: 1434 VAX/ViNS Macro V04-00 Page 47 
v04= MMGSUNIQUEGSD = CHECK THAT SH MEM GSD IS 5-SEP-1984 03:47:55 (CSYS.SRCJSHMGSDRTN.MAR; 1 (24) 
681 3 .SBTTL MMGSUNIQUEGSD = CHECK THAT SH MEM GSD IS UNIQUE 
6B1 1:44 
68! j : FUNCTIONAL DESCRIPTION: 
rt 4 ; THIS ROUTINE IS CALLED BY SCRMPSC AFTER IT HAS INITIALIZED A SHARED MEMORY 
681 5 : GLOBAL SECTION. A SEARCH OF THE SPECIFIC SHARED MEMORY'S GSD TABLE IS MADE 
681 $ : TO ASCERTAIN IF A GLOBAL SECTION OF THE SAME WAS CREATED DURING THE 
681 : TIME THAT $SCRMPSC WAS CREATING THE SECTION. 
681 § : TWO LOCKS MUST BE ACQUIRED BEFORE THE SHARED MEMORY GSD TABLE MAY BE SEARCHED 
6B! 40 : TO VERIFY A SECTION IS UNIQUE. THE FIRST IS THE SHARED MEMORY GSD MUT 
6B1 2041 : WHICH INTERLOCKS PROCESSES ON ONE PROCESSOR. THE SECOND IS THE SHARED MEMORY 
6B1 46 : GSD TABLE LOCK CONTAINED IN THE SHARED MEMORY COMMON DATA PAGE, WHICH 
681 043 : INYERLOCKS BETWEEN PROCESSORS. 
0681 45 ; CALLING SEQUENCE: 
6B! O47 ; BSBW  MMGSUNIQUEGSD 
0681 049 : INPUT PARAMETERS: 
0681 2051 : R4 = ADDRESS OF SHARED MEMORY CONTROL BLOCK 
0681 O5¢ : R11 = ADDRESS OF GLOBAL SECTION DESCRIPTOR TO BE VERIFIED AS UNIQUE 
0681 2054 : IMPLICIT INPUTS: 
0681 2055 ; 
ci ao 
0681 08 : OUTPUT PARAMETERS: 
0681 2060 : RS = ADDRESS OF SHARED MEMORY COMMON DATA PAGE 
0681 2061 : R6 - 0 IF THE GSD IS UNIQUE 
0681 06¢ ; OTHERWISE, ADDRESS OF DUPLICATE GSD 
0681 2064 :; IMPLICIT OUTPUTS: ’ 
0681 2065 : 
O68! 066 ; NONE 
pet 068 : COMPLETION CODES: 
0681 2069 : 
bea) 5071 verte 
681 a8 : SIDE EFFECTS: 
681 2074 : NONE 
6B1 2075 : 
te a 
6B1 28 MMGSUNIQUEGSD: : 
681 207 .ENABL L 
QaiF 8F BB 681 0 #°M<RO,R1,R2,R3,R4,R10> :SAVE REGISTERS 
0 A 0685 1 MOVZBL #SHDSV GSOLCK,RO ‘BIT NUMBER OF LOCK REQUESTED 
0 30 8 ; MMGSSHATXLK [GET SHM MUTEX AND BIT L 
O0A0 C5 $8 ie 0 Dose 4 Bove RO aeR CORT Cha) SHD$B GSDLOCK(RS) “SE OUNCE DF gop FOL LOCK 
01 DD ef Be PUSHL #1 ~ . . s INDICATE TO MMGSVALIDATE AND 


“Mm 
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SHMGSDRTN = GLOBAL SECTION DESCRIPTOR ROUTINES FOR 16-SEP-1984 01:14:42 VAX/VMS Macro v04-00 Page 48 
vie tt mcd unT DUE ESD - chEee THAT SH MEM GSD IS green 1882 Oh: 15:88 YOYS SRCISHMGSDRTN-AARS 1 9 34) 
SA SE) =Os«O6E $ MOVL SP, R10 :MMGSGETNXTGSD NOT TO USE ALL 
¢ SSHARED MEMORIES IN SEARCH 
¢ : :JUST THE ONE PASSED IN R4,R5 
56 55 04 A5 (C1 C ADDL3 SHD$L_GSDPTR(RS),R5,R6 *GET ADR OF FIRST GSD IN SH MEM 
00000098 ' EF 16 cE J$8 BAGSVALIDATEGSD ‘FIND FIRST VALID GSD 
8 1 D 9 BRB 30 sBR TO CHECK IF GSD F 
BA D6 92 20S: POPR #*M<R4,R5> SRESTORE SHB, SHD ADR 
0000009¢ "EF D 9 JSB MMG$GETNXTGSD ‘FIND NEXT VALID GSD 
6 D D 34 30S: TSTL = R6 ids THERE A GSD ADR? 
1E 1 a 9 BEQL NO DUP_GsD :BR ON NO MORE VALID 
e 36 PUSHR  #*A<RG7R5> “REMEMBER SHB, SHD A 
EE 66 Ba: E 2 BBS #GSD$V_LOCKED 6SDSt GSDFL(R6) 2g 7BR IF GSO LOCKED 
FA 6 : £0 £8 § BBS #GSD$V-DELPEND ,GSD$C_GSDFL(R65,20$':BR IF GSD BEING 
4 22A EC 9 MOVZBW GSD$T GSDNAM (RG) RG :GET GLOBAL SECTION NAME LENG 
22 aBeC«*S4:~=Sés«é91:”Ssé«éOGF 100 CMPB sa R4 GSBST_GSDNAM(R11) :DO LENGTHS MATCH? 
£0 Ig 6F4 2101 BNEQ :1F NEQ NO, TRY AGAIN 
23 AB O23 AB CSG : F621 : CMPC3 R4, GSD$T_GSDNAM+1(R6) ,GSDST_GSDNAM+1(R11) :COMPARE NAME STRINGS 
08 2 O6FC 21 BNEQ s1F NEQ, DIFFERENT NAMES 
BA O6F 104 “an gear #°M<R4,RSD SRESTORE SHB,SHD ADRS 
00 O09F C5 03 &7 700 21 ‘ ~~ BBCCI  #SHDSV_GSDLCK,SHDSB_FLAGS(R5),50$ ;RELEASE SHM GSD TBL LOCK 
004 0 07 6 2107 50$:  BSBW  MMGS$SHATXULK ;RELEASE SHM MUTE 
— D5 0709 2108 (SP) + [CLEAN OFF DUMMY SHMEM NAM CNT 
041F BF BA 0708 2109 60$:  POPR #*M<RO,R1,R2,R3,R4,R10> SRESTORE REGISTERS 
05 ZOF 110 RSB SRETURN TO SCRMPSC 
nat \1¢ s eeeeereeeee 
710 2113 : AT SOME LATER DATE, THIS SHOULD SEND AN ERROR MESSAGE TO THE ERROR LOGGER. 
0710 114 : weeeeeerere 
9710 115 ERROR_EXIT: 
56 04 0710 116 CLRL = R6 sFAILURE TO ACQUIRE BIT LOCK 
F7,-11«O712—211 BRB 60$ ‘RETURN ERROR STATUS 
0714 2118 .DSABL LSB 


RIPTOR ROUINESSEOR NECEEEIORS 4:14:42 US¥svsRcisMmesDRtN.maR;1 "2%" (52) 


«SBTTL MMGSSHMTXLK/MMGSSHMTXULK = GET/RELEASE SHARED MEMORY MUTEX 


SHMGSDRTN = GLOB 
v04- 


+ 
FUNCTIONAL DESCRIPTION: 


THE ROUTINE MMGSSHMTXLK IS CALLED TO ACQUIRE EXCLUSIVE ye OF A wi. 

MEMORY GLOBAL 2B EL 5 ATA STRUCTURE. THIS IS — E unit’ CQUIRING A LOCAL 

MEMORY po ee A_SHARED MEMORY BIT LOCK. WAIT IS DONE or THE MUTEX 
AND A LOO KECUTED TO ACQUIRE THE BIT LOCK. THe STATUS CODE F 

ACQUIRING. THe COEK RETURNED. IF THE BIT LOCK COULD NOT BE ACQUIRED, THEN 


AN ERROR CODE IS RETURNED. 


THE ROUTINE MMGSSHMTXULK RELEASES THE SHARED MEMORY GLOBAL SECTION DATA 
STRUCTURE MUTEX. 


CALLING SEQUENCE: 


BSBW MMGSSHMTXLK 
BSBW MMGSSHMTXULK 


INPUT PARAMETERS: 


RO - BIT NUMBER OF LOCK BEING REQUESTED, FOR MMGSSHMTXLK ONLY 
R4 = ADDRESS OF SHARED MEMORY CONTROL BLOCK 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 


RO = STATUS CODE, FOR MMGSSHMTXLK ONLY 
R5 = ADR OF SHARED MEMORY COMMON DATA PAGE, FOR MMGSSHMTXLK ONLY. 


IMPLICIT OUTPUTS: 


THE SHARED MEMORY MUTEX AND BIT LOCK MAY BE ACQUIRED BY MMGSSHMTXLK. 
THE SHARED MEMORY MUTEX MAY BE RELEASED BY MMGSSHMTXULK. 


COMPLETION CODES: 
SS$_NORMAL - epg ity ACQUIRED LOCKS, FOR MMGSSHMTXLK ONLY. 
LOCK UNABLE TO ACQUIRE LOC 


Dt et et ee et ee ee ee ee eee eet ee ee et tt tt ee 


OOCCOCOCOCOCOCOCOCOOOOOSOOCOCOOCOOCOOOOOCOOOOOOOCOOOOOOO =x 


Se te te ee ee i be i i i i i Pd 


ee em em ee ee ee ee ee ee ed ed ed dd dd dd dd dd dd dd —r 
em Dd od ed ed 8 ed a ds td 
Be Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se 


61 
6¢ SS$~ INTER K, FOR MMG$SHMTXLK ONLY. 
63 NONE FOR MMGSSHMTXULKS 
4 65 : SIDE EFFECTS: 
4 $169 NONE 
é rf 
4 
DD d ‘t cimecsety 1: 1 SAVE REGISTER 
BB 6 8 PUSHR #*M<RO,R4> [REMEMBER SHB AND BIT LOCK # 
20088 DE 74 MOVAL  G*EXESGL L_SHMGSHTX RO SADR OF SH laa 1°3 D MUTEX 
er D F 2175 MOVL  G*SCH$GL~CURPCB,R4 :ADR OF CURRENT PCB 
"GF 16 0726 2176 JSB G*SCHS btku 'GET UNIQUE ACCESS TO MUTEX 


SHMGSDRTN = GLOBAL SECTION DESCRIPTOR ROUTIN FOR 16-SEP-1984 01:14: AX/VMS Macro V04-00 Page 50 
v04- MMGSSHMTXLK/MMGSSHMTXULK = sfoylit ASE § mit} y B41 5388 EOYs. SRCJSHMGSDRTN.MAR; 1 ° (32) 
11. BA 072C 2177 POPR #*M<RO,R4> ;RESTORE SHB AND BIT LOCK # 
51 0 900000" Gt D6 7 178 MOVL gaPae eee LOCKRTRY,R1 :GET LOOP COUNT FOR BIT LOCK 
4A6 00 07 17 MOVL SHBSL DATAPAGE (RG) .RS [GET ADR OF COMMON DATA PAGE 
07 009F cs 0 g6 7 1 p 10$:  BBSSI prise ELAGS(R5) 208 ;TRY TO ACQUIRE BIT LOCK 
1 OA O73F 21 MOVZBL ass NORMAL ,R SREPORT LOCK SUCCESSFULLY ACQUIR 
1 BED phe 1 ; POPL TRESTORE REGISTER 
05 0745 21 RSB SRETURN SUCCESS CODE 
FO 51 F 146 184 20$:  SOBGTR R1,10$ STRY AGAIN TO ACQUIRE BIT LOCK 
1 BEDO 0749 2185 POPL = RI i RESTORE REGISTER 
74C 21 6 [RO CONTAINS 0 TO REPORT FAILURE 
50 038C BF 3¢ rac 1 MOVZWL #SS$_INTERLOCK,RO ‘REPORT ERROR STATU 
7 1 : SFALL THRU TO RELEASE SHM MUTEX 
751 2189 MMGSSHMTXULK:: 
13. BB 07 | 190 PUSHR #*M<RO.R1 ;SAVE REGISTERS 
50 90000000" Gt DE 753 2191 MOVAL  G*EXESGL_ shngsnrs RO SADR OF SH nen GSD MUTEX 
54  00000000'GF 00 075A 19 MOVL GPSCHSGL RPCB,R4 TADR OF CURRENT PCB 
00000000'GF 16 0761 219 JSB G*SCHSU rock 'GET UNIQUE ACCESS TO MUTEX 
13 BA 0767 21794 POPR #*M<RO,R1,R4> i RESTORE REGISTERS 
05 0769 2195 RSB “RETURN TO CALLER’ 


he 
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yOu mes LAARED MEMORY GLO Sagepaione Horarice PeRCMeS Hacc vOseOO = Page 3], 


~SBTTL MMGSDELSHMGS - DELETE SHARED MEMORY GLOBAL SECTION 


4 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS CALLED DURING A SCAN OF THE SECTION TABLE FOR SECTIONS READY 
TO BE DELETED. IT CHECKS THE PTE REFERENCE COUNTS FOR THE PARTICULAR GLOBAL 
SECTION, DETERMINING WHETHER OR NOT THE SECTION IS READY TO BE DELETED. IF 

CAN BE DELETED, THEN THE PAGES ALLOCATED ARE RELEASED, THE GSD IS RELEASED, 
AND LASTLY, THE SECTION TABLE ENTRY IS RELEASED. 


CALLING SEQUENCE: 
BSBW MMGSDELSHMGS 
INPUT PARAMETERS: 


R1 = SECTION TABLE OFFSET 
R3 = ADDRESS OF SECTION TABLE ENTRY TO BE DELETED 
R5 = SYSTEM PROCESS HEADER ADDRESS 


IMPLICIT INPUTS: 

THE SHARED MEMORY GLOBAL SECTION PAGE BITMAP MUST HAVE BEEN INITIALIZED. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 
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THE GLOBAL SECTION PAGES, GLOBAL SECTION DESCRIPTOR, AND SECTION TABLE 
ZOA ENTRY ARE RELEASED, IF ALL REFERENCE COUNTS ARE ZERO. 
ZO, COMPLETION CODES: 
76, NONE 
76A SIDE EFFECTS: 
76A NONE 
re 
Zon .ENABL LSB 
76A + SET INDICATOR TO CHECK LATER TO DELETE THIS SECTION. THERE IS STILL A PROCESS 
ro, : MAPPED TO IT AT PRESENT. 
76A 2245 RETRY_DEL: 
00 36 AS 1 §S 76A 46 SSI #PHDSV_DALCSTX,PHDS$W_FLAGS(R5),NO_DEL ;SECTION STILL TO BE DEALLOC 
009A 31 , F 4 NO_DEL: BRW 100$ ;BRANCH TO EXIT 
77 rk MMGSDELSHMGS: : 
7E 8F 77 0 PUSHR #*M<R1,R2 R3 R4,R5,RO> :SAVE REGISTERS 
6 $3 09 77 1 MOVL SeCSL_GSDIR 5 .Ré [GET A § 
eS 109 ; BEQL «18 :BR IF PARTIALLY CREATED GS 
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DELETION. IF SO, CHECK THE 
SECTION CAN BE DELETED . 
NO_DEL ;8R IF NOT MARK FOR DEL 

;GET # OF PROC REF CNTS TO CHECK 

;GET ADR OF FIRT PROC REF CNT 

zARE THERE OUTSTANDING REFS? 

7BR IF REF EXISTS, CAN'T DEL YET 

SLOOP TO CHECK ALL REF CNTS 
woceseon REFERENCE COUNTS HAVE 
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S Ww COPY-ON- 


ION MUST BE Ori TTeN BACK TO 


THE FILE BEFORE ia 
gsDsu_ GSTX(R6) ,R3 


#SECSV_WRT ,GSDSW_FLAGS(R6), 
ase cay CRF GSDSW_ FLAGS(R6), 


SWRITE GSD 
Hi) P TEASOFF (RS) . R5,R2 


SECSL "UINDOW(R3), R3 
os REF CNT(R3) 
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RESTORE REGISTERS 
RETURN TO CALLER 


MAKE THE GSD LOOK UNOWNED AND CONTINUE CLEANING UP 
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11 ; THE SECTION TABLE ENTRY. EVENTUALLY, MMGSFREEGSD WILL FIND AND FREE 
1g : UP THE GSD AND BITMAP. 

14 $008:  CLRW ie $w GSTX« NULL 
15 COMB GS6$B8_C SPORT (RG) SMAKE 
18 BRB *REJO 
1 .OSABL 60 


- G Seek ne 
MMGSDEL 
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; FUNCTIONAL DESCRIPTION: 

: DATA PAGE ADDRESS FOR A'SHARED PEMORY THAT CONTAINS" A PARTICULAR, GLOBAL 

; CALLING SEQUENCE: 

BSBW MMGSF INDSHD 

; INPUT PARAMETERS: 

R6 = ADDRESS OF GLOBAL SECTION DESCRIPTOR 

; IMPLICIT INPUTS: 

THE SHARED MEMORY DATA STRUCTURES ARE AVAILABLE (NOT DISCONNECTED). 
; OUTPUT PARAMETERS: 


R4 = ADDRESS OF SHARED MEMORY CONTROL BLOCK 
R5 = ADDRESS OF SHARED MEMORY COMMON DATA PAGE 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 

NONE 
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07 68 PUS #°M<RO,RI_R ;SAVE REGISTERS 
54  00000000'GF $ MOVL “EXESGL ‘ eRBUIST, RG :GET ADR OF FIRST SHB 
03 BRB N COMMON CODE 
54 64 7 108: MOVL SHBSL LINK(R4) ,R4 ‘Get Ade OF NEXT SHB 
9 a} 20$: BEQL N AiF NO NEXT SHB, FATAL ERROR 
F6 e AG 4 BBC BSABSV- CONNECT, SHB$B_FLAGS(R4),10$ ;IF Di ScoN ONNECTED, TRY NXT SHB 
04 AG 74 MOVL_ SHBSL_BATAPAGE(R4) RS :GET ADR OF COMMON BATA PAGE 
51 55 04 A5 75 ADDL3 SHDS$L~ ~GSDPTACRS). r5,R1 [FIND START OF GSD TABLE 
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Symbol table 


ALL _DONE 
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IRPSL_10ST1 
IRPSW~SIZE 
LNMS$C"MAXDEPTH 


B_FLAG 
LNMX$T-XLATION 
LNMX$V~ TERMINAL 
LOCK_ERR 
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LWA~ INPUT 
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LWA-XLATION 
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Symbol table 


PHDSL _PSTBASOFF 
PHDSV_DALCSTX 
PHDSW"FLAGS 


SHDSL_~GSDPTR 
SHO GSPAGCNT 
SHD$V~Bi TMAPLCK 
suey GSOLCK 


SwW_GSDMAX 
SHO su GSDQUOTA 


S$ 3 een 
SS$—GSDFU 
SS$_INSF MER 
SS$_INTERLOCK 
SS$—IVLOGNAM 
SS$—NOLOGNAM 
SS$_NORMAL 
SS$~NOSUCHSEC 
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! Psect synopsis ! 


tem meee wns mr om ee me +} 


PSECT name Allocation PSECT No. Attributes 

. ABS . 4 4441 ( 8-3 0 (¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 4 9 ( -) QO1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

YSEXEPAGED OOOO81A ( 2078} ¢ ( ¢° NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 

SMMGCOD 00000150 <¢ 36.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
bas oe meen ean anaes m ae ao + 
! ;_Performance | indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 29 0: 0:90.08 00:00:01.29 

Command processing 113 0:00:00. 00:00:05.67 

Pass 1 476 :00:18.4 00:01:14.95 

Symbol. table sort 0 00:00:02.6 88:80: 7.35 

Pass 2 400 00:00: we 0:00:21.4 

Symbol table output 1 00:00:00.17 00:00:00.5 

Psect synopsis output 0 00:00:00.03 00:00:00.0 

Cross-reference output 0 88:80:57: 95 Op: Bos 20-88 

Assembler run totals 1021 0:00:27.90 00:01:51.30 


The working set Limit was 2100 pages. 

13259 bytes (222 pages) of virtual memory were used to buffer _the intermediate cod 

Seock were 90 pages of symbol table space ie ay to hold 1630 non-local and 118 local symbols. 
393 source lines were read in Pass 1, "aaa object records in Pass 2. 

2 pages of virtual memory were used to define 31 macros. 
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Macro Library name Macros defined 
SS 32 SDUACE: Te4 -OBJJLIB.MLB;1 19 
“$255$0UA SYSLIBISTARLET. MLB; 2 9 
TOTALS (all Libraries) 28 


1711 GETS were required to define 28 macros. 


There were no errors, warnings or information messages. 
MACRO/L1IS=L1S$:SHMGSDRTN/OBJ=0BJ$:SHMGSDRIN MSRC$: SHMGSDRTN/UPDATE=(ENHS: SHMGSDRTN) +EXECMLS/LIB 
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